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GENIE DATA HÄNDLER 


Uns erreichen immer wieder Anfragen, wo man die GENIE DATA in der Bundes- 
republik beziehen kann, deshalb haben wir für Sie einmal diese Händler-Übersicht 
zusammengestellt. Die meisten der aufgeführten Händler haben auch unser Software- 
Sortiment in ihrem Programm, Anfragen lohnt! 





1000 


Micro 80 Computer, Schlüterstraße 16, 
1000 Berlin 12 


Ihre Computerei, Johannisthaler Chaussee, 
1000 Berlin 47 
2000 


Computer Modular 
Buxtehuder Straße 24, 
2100 Hamburg 70 


Micro Computer Christ, Knooper Weg 59, 
"2300 Kiel 1 





GmbH, Jürgen Schröder, 


3000 

Computer Studio, Rebenring 49 - 50, 
3300 Braunschweig 

4000 


Regensbergsche Buchhandlung, Alter Steiweg |, 
4400 Münster 


Computer-Centrale, Douaistraße 1, 
4350 Recklinghausen 


Data Becker GmbH, Merowingerstraße 30, 
4000 Düsseldorf 


Gerhard Knupe oHG, Güntherstraße 75, 
4600 Dortmund | 


CC Computerstudio, Elisabethstraße 5, 
4800 Dortmund | 


Baffi Elektronik, Paulusstraße 19, 
4800 Bielefeld 1 


Kirchner Elektronik, Grabenstraße 90, 
4100 Duisburg 1 
5000 


Peter Räbiger Micro Computer, Josef-Schregel- 
Straße 45, 
5160 Düren 


Hobby Elektronik 3000, Victoriastraße 8-12, 
5400 Koblenz 


Buchhandlung Gonski GmbH d&Co, Neumarkt 24, 
5000 Köln I 


Uwe Schmidtke Elektronik, Sandkaulstraße 84, 
5100 Aachen 


RMI Nachrichtentechnik GmbH, Postfach 1526, 
5100 Aachen, 
6000 


Thomas Igiel Elektronik, Heinrichstraße 48, 
6100 Darmstadt 


DM Elektronik, Triererstraße 4, 
6588 Birkenfeld 


Arthur Rufenach KG, Dammweg 2, 
6700 Heidelberg 


7000 


Arlt Elektr. Ener Katharinenstraße 22, 
7000 Stuttgart 1 


Stefan Lehmann, Breitenbachstraße 29, 
7613 Hausach/Schwarzwald 


Schaber Genie Computer, Industriestraße 4a, 
7707 Engen 


Martin Schuster, St. Pöltenerstraße 4, 
7920 Heidenheim 


8000 


Conrad Computer GmbH, Schillerstraße 23a, 
8000 München 2 


Münzenloher GmbH, Tölzer Straße 5, 
8150 Holzkirchen 


Dyras, Parsivalstraße 8, 
8500 Nürnberg 40 


Büro 2000 Haas, Dresdner Straße 5 und Fried- 
richstraße 9, 

8520 Erlangen 

Computerladen H. Staudt, Döberlitzer Str. 
8670 Hof 
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Sollte „Ihr" Händler die GENIE DATA noch nicht in seinem Sortiment haben, 


so wird er sie sicher gerne für Sie bestellen ! 
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MIKROCHIPS 


Exclusivbericht von der Computermesse in Anaheim, USA,., 


Die größte Computermesse der Welt in Anaheim 
ist gelaufen. 650 Aussteller registrierten 
110.000 Besucher. Das rege Interesse war vor- 
programmiert. Wer Sensationen erwartet hat, 
wurde enttäuscht. 


Für technisch interessierte Laien und Compu- 
tereinsteiger mag es vielleicht sensationell sein, 
wenn ausgepuffte Programme auf raffinierten 
Systemen Ergebnisse auf den Bildschirm brin- 
gen, die an Hexerei grenzen. Der Insider, oder 
gar der frustrierte Freak, konnte über einige 
Dinze bioß müde lächeln, wie zum Beispiel über 
den Piloten in voller Uniform, der mit 'High 
and migthy face’ und per Mundwerk ein Flugsi- 
mulator-Programm für Lieschen Müller bedien- 
te. Man merkte. recht deutlich: Disneyland ist 
nicht weit! Einer der Computergiganten machte 
von dieser Nachbarschaft sogar direkten Ge- 
brauch: Er mietete für seine Kunden und Inter- 
essenten Donald-Duck's Territorium; ein raffi- 
nierter Schachzug, den Käufer von Morgen an 
den Heimcomputer und seine Möglichkeiten her- 
anzuführen!. 

Damit war offenkundig, wo Amerikas Compu- 
terstrategen die Front sehen: Hinein ins Volk! 
Videospielautomaten, welche nicht nur eine Öff- 
nung haben, in die man Software-Pakete hinein- 
schiebt, sondern Rechner mit allen Merkmalen 
des frei programmierbaren Mikrocomputers, ap- 
pellieren an die Kreativität des Menschen und 
geben ihm die Möglichkeit, das 'Phantom' zu 
durchschauen und damit zu beherrschen. Der 
Schwanengesang der reinen Spielcomputer hat 
begonnen. 


PROFIS PROFILIEREN SICH 


Es wäre ungerecht zu behaupten, die Computer- 


messe in Anaheim sei bloß eine Dependance von 
Disneyland gewesen. Die Nähe von 'Silicon-Val- 
ley' war überdeutlich spürbar; die Präsenz jener 
klugen Köpfe, die von Wellblechgaragen aus die 
Welt erobert haben. 

Ist diese '"Wildwest-Zeit der Computerheiden! 
auch längst vorüber und der Pioniergeist von 
damals einem Supermanagement gewichen, so 


‚ist die Forschung nicht zum Stillstand. gekom- 


men. Im Gegenteil. Die Entwicklung geht zur 
Zeit einen logischen, geraden Weg, 


Der Bürocomputer 1983 präsentiert sich als 
Kompaktgerät mit eingebauten 5 1/4" Disket- 
tenlaufwerken und einem 128 KByte Hauptspei- 
cher. Die Diskettenorganisation tendiert nach 
40 Spuren, beidseitig und mit doppelter Schreib- 
dichte. Eine Lösung, die einen guten Kompro- 
miss zwischen Datensicherheit und Datenmenge 
darstellt, denn eine Patentlösung gegen die me- 
chanische Empfindlichkeit von Disketten und 


Laufwerken ist nicht in Sicht. Wenn auch 'Spin . 


Physik' eine 5 1/4" Diskette mit einer Speicher- 


kapizität von 10 Mbty(!) präsentiert, so fehlen 


bislang immer noch die Laufwerke, welche sol- 
che Aufzeichnungsdichten im praktischen Ein- 
satz fehlerfrei gewährleisten. 'Königin 5 1/4' 
regiert, die Tage von 'Königin-Mutter', 8 Inch, 


sind gezählt und dem Thronfoiger mit 3 1/2° 


Inches sagt man eine glorreiche Zukunft voraus. 


Bildschirmformat und -größe scheinen sich all- 
mählich auf eine Praxisform einzupendeln: 80 
Zeichen pro Zeile bei einer Bildschirmdiagona- 


len von 30,5 cm: überwiegen. Verschiedentlich' 


werden auch 132 Zeichen/Zeile angeboten. Die 
Zukunft wird zeigen, wohin der Anwender ten- 
diert. 















Bei der Bildschirmfarbe hat der Kunde anschei- 
nend entschieden; Das grüne, entspiegelte Dis- 
play dürfte das Rennen gegen die gelben und 
andersfarbenen Brüder gewonnen haben. Als 
Auflösung sind 18 Mhz vorherrschend. 


Auf dem Gebiet der Massenspeicher werden 
noch uneinheitliche Wege gegangen: Bewegliche 
Speichermedien, oder Festspeicher -das ist noch 
die Frage. Aber was an Speicherkapizitäten an- 
geboten wird- ob Harddisk oder. Winchesterlauf- 
werk ist mehr als beachtlich. Der Durchschnitt 
liegt immerhin bei 10 MBty. 





DIE TRAGBAREN MARSCHIEREN 


Osborne -ein Pionier der Portables unter den 
Computern- 
en 'Executive' weiter ausgebaut. Allgemeiner 
Trend bei den Tragbaren: Kleiner, leichter -und 
größere Bildschirme. Mußte man früher kräftig, 
gut zu Fuß und scharfsinnig sein, um ungetrübte 
Freude mit einem 'Tragbaren'’ zu haben, so 
braucht man heute auch als schwächlicher Bril- 
lenträger mit Plattfüßen im Urlaub nicht mehr 
auf seinen Computer zu verzichten. 


Die Entwicklung der kleinen, handlichen zeigt 
gleichzeitig aber noch etwas: Die Zeit der Sau- 
rier ist endgültig vorbei. Die verbleibenden 
Monster dienen nur noch auf wissenschaftlichen 
Gebieten und sind im Sondereinsatz in der Ver- 
waltung. Be ; 


DIE KLEINEN SIND DIE GROSSEN 


Begriffe wie Heim-, Micro- und Bürocomputer 
verschwimmen immer. mehr. Die Grenzen sind 
fließend geworden, seit die Leistung der. 'Klei- 
nen’ und ihre Speicherkapazitäten gestiegen 
sind. 


Merklich und gleichzeitig schmerzlich für einige 
Schreibmaschinenhersteller, übernimmt der 
Computer allmählich die Fünktion der Schreib- 
maschine. Die Elektrifizierung der guten, alten 
Dampf(schreib)maschine korinte diesen Trend 
nicht aufhalten. In Elektrische serienmäßige 
Schnittstellen einzubauen, um sich an einen 
Computer anzuhängen, wird das Sterben der 
Nur-Schreibmaschine vielleicht einige Jahre hin- 
auszögern, aber nicht verhindern können. Die 
Schreibarbeit der Zukunft eriedigt der Micro im 
Verein mit.einem Drucker. Nadeldrucker? Tin- 
tenstrahl? Laser? Wer wird das Rennen mach- 


TRENDS 


hat seinen Vorsprung mit dem neu, 
/ 
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DIE ELEKTRONISCHE SCHREIBFLUNDER 


Wesentlich mehr Zukunft kann man einer Ent- 
wicklung geben, weiche zwar wie eine Schreib- 
maschine aussieht, aber die mit einer herkömm- 
lichen Schreibmaschine nur noch weitschichtig 
verwandt ist: Ein Schreibgerät mit genormter 
Tastatur, Speicher- und Druckwerk, das wie ei- 
ne Schreibmaschine bedient wird. So quasi ne- 
benher kann man mit dem Ding auch rechnen, 
Ergebnisse und eingetippte Briefe mittels einge- 
bauter Mini-Cassette .speichern. Ein Mini-Dis- 
play mit Flüssigkeitskristallanzeige dient zur 
Editierung und Kontrolle. Und das ganze in su- 
perflacher Kofferform: Ein Minicomputer, spe- 
zialisiert auf Schreibarbeiten, kombiniert mit 
Rechenfunktionen. 5 Kilo gebalite Technik. Ist 
das die Reiseschreibmaschine der Zukunft? 


ZAUBERWORT * 16 BIT * 


Der 16-Bit-Prozessor, der jeden: Programmierer 
ins Schwärmen bringt, hat bei fast allen Gerä- 
ten Eingang gefunden. Aber noch muß er sich 
den engen Platz im Gehäuse mit seinem älter-. 
en, 3-bitigen Bruder teilen. Der Grund ist ein- 
fach: Die 16-Bit-Software ist bis dato einfach 


'noch zu dünn gesät auf dem Markt, als daß man 


mit einem Nur-16-Bit-Rechner ein Anwender- 
volk überzeugen könnte. Es wird aber eine Fra- 
ge der Zeit sein, wann Mister 8-Bit zu Grabe 


‚getragen wird. 


Oeliner 


en? (Zuschriften unter "Ich bin der Prophet" an . 


die Redaktion.) 





SOFTWARE 








Wissen Sie, wie Ihr TRS-80 auf die Eingabe 
'PRINT 12 AND 9' reagiert? Oder was ausgege- 
ben wird, wenn Sie 'PRINT 12 OR 9' eingeben? 
Es kommt nicht etwa die Meldung 'SN-Error', 
sondern der Computer gibt die Zahl '&' und im 
zweiten Fall die Zahl '13' aus, 

Der TRS-830 gibt die logische Verknüpfung der 


‚binären Darstellung der eingegebenen Zahlen 


aus: 
12 (dezimal) = 1100 (binär) 
9 (dezimal) = 1001 (binär). 


Das logische Und: 1000 (binär) = 8 (dezimal) 
Das logische Oder: 1101 (binär) = 13 (dezimal). 
Diese bemerkenswerte Tatsache kann man vor 
allem bei Algorithmen nutzen, die die Binärdar- 
stellung von Zahlen benötigen. Angefügt ist das 
Beispiel des Nim-Spiels. 

Bei diesem Spiel (siehe Programm) führt z. 
B. folgende Situation bei bestmöglichem Spiel 
zum Verlust für den Spieler, der am Zuge ist: 


DAS 
NIM- SPIEL 


GENIE I+Il 





l. Haufen 4 Steine 100 (binär) 

2. Haufen 6 Steine 110 (binär) 

3. Haufen 2 Steine 010 (binär). 
Spaltensumme: 220 


In jeder Spalte befindet sich eine gerade Anzahl 
von Einsen. Der am Zuge befindliche Spieler 
muß nun von einem Haufen einen oder mehr 
Steine nehmen. Dadurch tritt aber in mindes- 
tens einer Spalte eine ungerade Anzahl von Ein- 
sen auf. 

Der Gegenspieler kann mit seinem nächsten Zug 
wieder auf eine gerade Anzahl von Einsen in al- 
len Spalten kommen und so gewinnen. 

Diese Gesetzmäßigkeit im Nim-Spiel wird vom 
Programm ausgenutzt. Wer das Spiel nicht 
kennt, macht aller Wahrscheinlichkeit nach frü- 
her oder später einen Fehler und verliert. 


Bernd Plumhoff | 


10 REM Kuna DAS NIM-SPIEL KERNE BR 


20 DEFINT A-Z 

30 CLS 

40 PRINT,"DAS NIM-SPIEL" 
SO PRINT 
60 PRINT" 


MAN DARF VON EINEM HAUFEN SO VIELE STEINE ENTFERNEN, 
75 PRINT"MOECHTE. WER DEN LETZTEN STEIN ENTFERNT, 


WIE MAN" 
GEWINNT." 


80 PRINT"ZUERST WIRD DIE ANZAHL DER HAUFEN UND DER STEINE PRO HAUFEN" 


70 PRINT"FESTGELEST." 

100 PRINT 

110 INPUT"WIEVIELE HAUFEN"3SN 

120 IF N<Z THEN 110 

150 DIM HAUFEN{N 

140 FOR I=1 TON 

150 PRINT'"WIEVIELE STEINE HAT DER"; 
150 INPUT". HAUFEN"SHAUFEN{TI 


170 IF HAUFEN{II<S1 THEN PRINT"DAS GEHT NICHT!" 6070 150 
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180 NEXT I 

190 PRINT 

200 INPUT"1=COMPUTER BEGINNT Z2=SPIELER BEGINNT"5A 

210 IF A=1 THEN 330 

220 IF A<>2 THEN 200 

230 PRINT 

240 INPUT"VON WELCHEM HAUFEN WOLLEN SIE STEINE NEHMEN (WENN SIE DIE 
SEITEN TAUSCHEN WOLLEN, GEBEN SIE ’T’ EIN)"SA$ 

250 IF As="T" OR A$="t" THEN 350 ELSE A=VAL (AS) 

260 IF A<1 OR A>N THEN 240 

270 PRINT"WIEVIEL STEINE WOLLEN SIE VOM"3A; 

280 INPUT". HAUFEN NEHMEN"5B 

290 IF B<i OR HAUFEN(A)<B THEN 270 

300 HAUFEN (A) =HAUFEN (A) -B 

310 I=1 

320 IF I<=N THEN IF HAUFEN(I)=0 THEN I=I+1: G0T0 320 ELSE ISO ELSE PRINT" 
SRATULIERE, SIE HABEN GEWONNEN. ”: PRINT"SIE KENNEN ANSCHEINEND DEN ALGORI 
THMUS.": GOTOS1O 

330 C=HAUFEN(1) 

340 FOR I=2 TON 

350 C=(C OR HAUFEN(I)) AND NOT<C AND HAUFEN<T)) 

360 REM C ERHAELT DAS EXKLUSIVE ODER VON C UND HAUFEN(T) 

370 NEXT I 

380 1=1 

390 IF C<>O THEN 430 

400 IF HAUFEN(I) >O THEN D=RND{HAUFEN(I)): GOTO 470 


410 I=I+1 


420 GOTO 400 

430 D={C OR HAUFEN{I)) AND NOT<C AND HAUFEN{T)) 
440 REM WIEDER WIRD DAS EXKLUSIVE ODER GERBILDET 
450 IF D>HAUFEN{I)THEN I=I+1: GOTD 450 

460 D=HAUFEN(I)-D 

470 PRINT"ICH NEHME"3D3 "STEIN{E) VOM"3IS". HAUFEN" 
480 HAUFEN (I}=HAUFEN (I) -D ; 

490. I=1 

500 IF I<=N THEN IF HAUFEN<I)=0 THEN I=I+1: GDTO 500 ELSE 540 ELSE PRINT" 
ICH HABE GEWONNEN. ": PRINT"MEIN ALGORITHMUS FUNKTIONIERTE. " 
510 INPUT"NOCH EIN SPIEL (J/N)"ıA$ 

520 IF A$="N" OR A$="n" THEN END 

530 RUN 

540 PRINT"HAUFEN: "5 

550 FOR I=1 TON 

560 PRINT TAB{5+4*1)5 135 

570 NEXT I 

580 PRINT 

590 PRINT"STEINE:"3 

&00 FOR I=1 TON 

610 PRINT TAB(5+4*1)5 HAUFEN{TI5 

820 NEXT I 

630 PRINT 

640 GOTO 230 


KEINE LUSTMEHR 





ZUMTIPPEN? 


. DA HILFT DER. GENIE DATA - PROGRAMMSERVICE, SIEHE UMSCHLAG HINTEN I 
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METEOR ATTACK 


Meteor Attack ist ein Spiel, wie es bereits vie- 
le auf dem Markt gibt. Die Bedienung des 
Spieles ist sehr einfach. Mit dem Links- und 
dem Rechts-Pfeil wird die eigene BASIS, die 
sich am unteren Rand des Bildschirms befindet, 
gesteuert. Schießen kann man mit der "Pfeil 
nach oben"-Taste. Als Besonderheit lassen sich 
mit der "Pfeil nach unten"-Taste Bomben wer- 
fen. Diese löschen den ganzen Bildschirm. Ziel 
des Spieles ist es, möglichst viele Meter in das 
Gebiet des Feindes einzudringen. 

Bei diesem Flug hat man es mit 3 Ärten von 
Flugobjekten zu tun: 

1. Meteoriten, die durch kleine weiße Gebilde 
dargestellt werden. 

2. Die Feinde. Sie kommen nicht so oft wie die 
Meteoriten vor und sind am größten. 

3. Die Versorgungsschiffe. Dieses sind längliche 
Gebilde, die sehr selten erscheinen. 

Die Berührung mit allen 3 Flugobjekten führt 
zur Zerstörung der Basis. Am Anfang des Spie- 
les verfügt man über 4 Basisschiffe. Das Spiel 
ist beendet, wenn alle Schiffe zerstört sind. 
Die Energiemenge ist auf 110 Energieeinheiten 
begrenzt. Ein Schuß verbraucht 1, eine Bombe 
10 Energieeinheiten. Ist der Energievorrat völ- 
lig verbraucht, ist es nicht mehr möglich, den 
Feind zu zerstören. Um das Spiel attraktiver 
zu gestalten, wurden noch einige Extras einge- 
baut: 

- Damit das Programm auch akustisch interes- 
sant ist, habe ich eine Tonroutine eingebaut. 


ANFANGS- und 


- Wenn man 500 Meter in das feindliche Gebiet 
eingedrungen ist, erhält man 50 Bonusenergie- 
einheiten. 

- Viele Spiele werden bereits nach kurzer Zeit 
uninteressant, da sie zu einfach sind. Zur Ver- 
meidung dessen werden die Schiffe ab 800 Me- 
ter schneller. 

- Um zum Titelbild zurückzugelangen, genügt 
ein Druck auf die (BREAK) Taste. 

- Erreicht man die seit dem Einladen des Pro- 
grammes beste Punktzahl, kann man seinen 
Namen eingeben (HIGH-SCORE). 


Um eine möglichst gute Graphik zu erreichen, 
wurde eine Vielzahl von Routinen zur Bild- 
schirmmanipulation integriert: Eine Bildschirm- 
invertierroutine, eine Routine, die den Bild- 
schirm mit beliebigen Graphikzeichen füllt und 
eine "SCROLL-DOWN"-Routine. Da das Pro- 
gramm möglichst kurz sein sollte, werden eini- 
ge ROM-Routinen aufgerufen: 

Bildschirm : löschen, Text schreiben und Text- 
eingabe. 

Mein mit nur 16 K-RAM ausgestatteter TRS 80 
kann nur ca, 1 K Maschinensprache assemblie- 
ren. Deshalb schrieb ich 3 einzelne Assembler- 
programme (Titelbild, eigentliches Spiel, Ende 
und HIGHSCORE), die ich mit einem Monitor 
zusammenfügte. So konnte ich ohne große Pro- 
bleme ein Maschinenspracheprogramm erstel- 
len, für das man eigentlich einen 32 K großen 
Speicherbereich benötigt. 


ANSPRUNGSADRESSE:4AOO H / ENDADRESSE:5533 H / 
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aA: C2 29 4A CD CH Bi Zi 
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arsfe AB EI Sl SF 22 20 40 
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41 ED 22 20 AO 21 DD AC CD 
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SOFTWARE 

AEADE AI AE AS.AE 20 37 45 dE AS GE AS A SA ED Aa 49 
hEBDE 45 20 47 45 Di 4 45 57 49 dE Au 453 47 dB 45 49 
hECDE 54 ZE SC AR Ab AS Al SE SE ZU Sa AF ED SE SA Al 
hEDB: 32 54 22 FÜ BEER FF DR FF OO FFORGFFORO FF O0 
AEEß: CD CS Bi 21 ES DE EEE BE 49 3E 75 DE OA AS Zi 00 
LhEFR=E BB 22 BC AI ZI Da DB Z2 Da 49 SE 22 EEE AR 49 21 
Arad: CA 3F CD 70 SI ZE ZB AUN ZI AA SE CD 97 ES ZE Ma 
aAride 32 BE 49 BE BF EI DB SC 36 ZA IL SF DA ED 5A 36 
urzB: ZA zu 26 2A IB FEAR Bü 49 FEBRCH BES SE FA BS- 
uFS3ZE oO SE SR BE 49 RB? CH AS AF CD EC SB FE Ad TE BE 49 
aFraQds CE 26 AF Sn BE 49 SD ZE BE 49 21 AD 35 CR GE CH 
aFSß: zur 21 dB 35 CH 7& CE BF AF CB SE CE SE AR CH 
aFER: BE CA GEF AF SA OA 49 FEBA FA EF AF CD BE 51 2A 
aFTOs: BE 49 ES CI CD a8 SE ZI 4Q 25 CR SE CH FC AF CH 
4Fög: Z6 4F SA 02 43 FE DM CE SE AF Bl DO 07 CD a0 52 
aAFIR: 3 26 4F 21.08 3F CD 70 51 22 20 40 21 52 82 CD 
araAde A7 2ER AD 45 ZI CA SF CD 7C SI ER EEE ZB ARD Zi 
arBds AR SE CD A7 25 SA 00 49 SD 32 DE 43 CH SE ar an 
„FEB: 29 49 FE 35 CE DZ Ar BL DE 87 CD AR SE CH 26 Ar 
arbß: 21 CD SF CD 76 SI 22 ZU AB 2i S2 52 en n7 29 1 
aFEBE CH IF BU 49 CD 7ESI ZI EE ED AR EI AA SE CD 
uAFFB= A? 22 2A BO 49 306 32 BO 49 CH 26 AF SA BA 49 FE 
SsoBz: Bi FA ZE AFAR BG 49 21 CH SF CD 751 11 ZI DR 
sBiß: ED SA BE GF il 40 BD ED SE TE FE ZRH ISO ON 
S@22: ZA FS C5 DS GE DM 50 CR 22 CD AS as Di CiPFi 36 
Sad: 2 id El 21 BB SC 11 AB OD 159 12 FD 11 2F BA ED 
Saum: SE BE SC SE ZU ZE ID FR RE ME 75 CE 22 57 DE DI 
Sasß: C5 CD AS AR CI 75 FE 23 CE 68.59 C5 CD EC 52 Ci 
Ss@ble 19 ES AN OA AS SD 2E Bi 43 CE 26 AF EA DE AI EN 
Ss27m: Z=2 RC 49 Bi 2a DE 70 BE CH BE SO 7D BIS CH SE 52 
SsBed: 21 32 DI ZE BEASER DE 49 Bl FA M 75U BE CE 99 
Saggs 52 7D EI CH 93 50 CD DE SE ZA BE 49 7E FE FF CA 
san: AI SA 2 ZE BE AO CH BE SO 21 74 SE ZE RE AS CH 
SZpBZ: 2Z6 4F 21 29 SC CD 7C SI 22 20 AD ED SF FE BE FA 
Sach: C5 SB 21 5a Sz CH DS Sp ED SF FE 85 FA DS SA 21 
SaDB: 5E 52 CH DE SR 21 6A SE CD A? Z5 CD ER SR Ib BA 
SpED: BE BACD AI AB CS CD Hi SI IL BF SF EL T7FAF 
SaOrd: 88 DE ED BB ZI BA IC ZI 22 20 AD 21 66 SE CD A?. 
SiBg: Z8 3E ZA 32 BR SC 32 SF SC 21 CH SF ZZ 20 AD ZA 
Sild: Ba 49 CD AF BF EI FANF EEE ZB ADB 21 52 SE CD A? 
S12B: 28 21 FE SF AZ ED ADB ah OA AS GEF Z6 DA CD AF BF 
Ss120: (093 8E 85 An BO 49 95 3D 21 C2 SF CD 7C 51 1 409 
Siaz: 088 ED SZ 7E FE 28 Ch 7351 FE SA FA 73 51 ZE QF 
150: CD 86 51 BE Ai 55 CR ZE CR ZZ CB ZZ CR ZE CD 95 
S1EQ: 4R CD SE 51 25 CE 52 51 21 CD SF ZE ZB AN ZA Ba 
S170: 49 ZB ZE 94 43 CD AF BF CS 12 BES CH SS EF ZE 0 
Sıs@s 50 67 ZA BR 49 CS ES DS CH 11 BR SC BI DO Bd in 
51938: A7 DE 20 Ch 3E 53 A7 DE EB FA AS SI ED A4 CE EF 
SsiARm: FE 88 CE A? SI 3E ZA IE IR ED AIEA EF Si CI DI 
S1Bd: EI CS CD S6 SI CD SE FI BD ID CH CI 45 75 CHE 
Sıcaz CB 27 C6 &C 57 C5 CD AI AB Ci I EE SA OA 43 DE 
SiDad: aA 22 OA 49 SE BF IE RS 49 21 DI SC 11 Q2 20 3E 
SilEB: 28 77 81 30 O8 ED BO ES DS 16 FB DE DE CD AS AB 
SiFrgs Di Ei 3A 08 453 2D CE 32 DS 49 06 Bd 25 15 12 FC 
s2B@: C5 DFSı SA BA 49 FE AE FE 1 52 CE 382 05 1252 
a SE 88 32 BA 49 Z1 DI 3D Z2 20 AB 21 ED Sz CD A7 

za: 25 Z&6 1E ZE B4 BE BI 45 CD AI AR ED CE 25 52 25 
230: [2 23 52 21 DI 3D 22 28 48 21 52 52 CD A7 28 C9 
Sad: 75 47 18 FE OD CE 41 SE C9 AB BA BS BE BC BA 54 
sad: 225 <d 20 20 28 20 22 SB SC IF 84 80 99.87 


= 


























GEBR: 
SET 
EG 
3292: 
SED: 
SZERO 
S2CQ: 
S=DE : 
SEER: 
Ser: 
SB: 
Sala 
SEE 
SER: 
url & 
Sag 
SE60 5 
5372: 
SB: 
2:92 5 
SEAB: 
SB 
SCH: 
SDR: 
SZEQ: 
SEP 8 
SEHE: 
S4alds 
Az: 
Sand: 
SA: 
as: 
Sub: 
Ha7Ds 
AB : 
Saga: 
SAaRg: 
SAB@: 
Sala: 
SAD”: 
SsahER: 
Sard® 
SSa: 
s3l10: 
SEM: 


Sal 


Allen Abonnenten der Fachzeitschrift GENIE DATA bieten wir als Service an, in unserer Rubrik: - Si 
'Kleinanzeigen' bis zu drei Zeilen Text für Sie kostenlos zu veröffentlichen. Dieser Service gilt 
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SOFTWARE 


BIORHYTHMUS 


Durch Beobachtungen wurde festgestellt, daß 


es im Leben des Menschen verschiedene Zyklen: 


gibt, die einen erheblichen Einfluß auf seine 
körperliche und geistige Leistungsfähigkeit so- 
wie auf seinen seelischen Zustand ausüben. 

Es gibt folgende 3 Zyklen: 

l. der körperliche Zyklus mit einer Dauer von 
23 Tagen. 

2. der seelische Zyklus mit einer Dauer von 28 
Tagen. 

3. der geistige Zyklus mit einer Dauer von 33 
Tagen. 

In neuester Zeit wird aus den 3 obigen Werten 
ein Mittelwert errechnet, der sogenannte ER- 
FOLGSWERT. Er zeigt auf einen Blick die 
Tendenzen zu allen Lebensgebieten an, die mit 
Körper, Seele und Geist zusammenhängen. 
Solange sich die Werte im positiven Bereich 
befinden, ist die Leistungsfähigkeit bzw. der 
Zustand hoch, während sie in der Zeit mit ne- 


gativen Werten nachläßt. Kritisch sind lediglich 


die Tage, in denen die Werte vom positiven in 
den negativen Bereich, also Nulldurchgänge, 


XHYTHOGRAMM-AUSDRUCK 
r Gerblinge 

ärpestr. 32 
ittenwatd 

EM Morituorbetrieb 
{123 


am 
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mer nn 
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uch OR 
NZN nn 
+ on 
x ION 
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#ATT 
aAmm 
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En 
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R 
REM DATENEINGABE 
CLS:PRI NTsis- PETORHYTHMUS" 
Ts782,"61 


T&$1658 ,CHR$(30) 
A, N 


DRAG SEITE 
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a 
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un 


ZIELZ« 
-,4 

Kun 
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Zu 


ai 

Ta$ı PRINTS28S, "GEB.-DA 

5740, 
Nab" 


war) 
NSS 
DEE 
"TOT TI 
Bzcz 


Z NIZH-RZAUINDZU 


zZ 4 
SHHGUDIHNDDHMUD- VODVUD-T 


x 
RGEN 
FOSC) ""THENZS 


LEW BIWOWANKDIWTN 
KO NAAR SOIMAZUIB BI” 
GSSST@OAN SNUNITSSO 


$(A 
+ KOPF 


EADDsca), ‚BA :NEXT 


B DEN NAMEN EIN!" 


Fupros, -DATUM: "3 TABC285>"1." 3 MM;" "3 6: PRINTCHR&C 31 
"WIE VIELE MONATE SOLLEN "GEDRÜCKT WERDEN? i- 


MON 
G=1 THENR=S&ELSEIFG=ZTHENR=12 


Sn 
$, 2’) ıM=VALCMIDS(CAS, 4,299: 


wechseln. An diesen Tagen besteht verstärkte 
Unfaligefahr und die Möglichkeit einer Kurz- 
schlußhandlung ist gegeben. 


Das nachstehende Programm berechnet auf ei- 
nem Colour-Genie unter Berücksichtigung der 
Schalttage die Biorhythmuswerte für einen 
wählbaren Zeitraum. Außerdem kann wahlweise 
ein erklärender Text angewählt werden. 

Auf dem Drucker Itoh 8510 A werden die 
Texte und Werte ausgedruckt. Nach dem Star- 
ten mit RUN verlangt das Programm im Di- 
alogverfahren die benötigten Daten. Danach 
erfolgt die Abfrage auf korrekte Eingabe. In 
den folgenden 5 Minuten werden die Werte für 
1 ganzes Jahr ausgedruckt. 

In der vergangenen Zeit habe ich ungefähr 50 
‚Ausdrucke erstellt. Sie erfreuen sich steigen- 
der Beliebtheit bei Freunden, Bekannten und 
Nachbarn. 


Dieter Gerblinger 


Gr: nn ZEILENABSTAND 
:M$=CHR$C 273 +CHR$C343 ;REM FETTDRUCK AUS 
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"MONATE: "TABCZUO>R:PRINTCHRSÄ 31? 
‚"SOLL EINE ERKLAERUNG GEDRUCKT WERDEN? l 


=1 THEND$=" JA"ELSEIFD=ZTHEND$="NEIN! 
” ERKLAERUNG : " ; TABi 289 D$ : PRINTCHR$(31) 
"WENN ALLE ANSABEN RICHTIG SIND, 


JA 


DRUECKE N/ 


J=eVALERIGHTSCAF, 42 


A a re a Plz m. Mina n 0 20 DL San nn Sen un. n Del Sn En ZT EtR 2 2 EZ En un zen N 20 Den Denn 0 02000 
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ie 
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FICHRer 44) "585,015,0824,02332,644.":: REM TAB HORITZUN 
delNTiJ-4läNDEB=ZTHENKK=2F 
RINTOSS : LPRINTUSINGUHR#"GARGGLPRINT" "5 

191 289184507235 +9.0) 
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ING" #HRB" N 
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NEXT 
REM INT 
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ZA 


(14-1324) 
> :NEXTK 
iN$"Die folgenden Angaben sind Prozentwert 


I CHRS (BEI "BBSP"CHREL KH) 
1} :REM ENGSCHRIFT EIN 
3TAB(25); "KÖRPER- — —— — SEELEN- 


KIERTEr WERTE : 


Da REM MORMALSCHRIFT 
CHRE(BE) "OBSP"CHRECE). 


NT 
MC 
IEN 
B 
HF 


MIITTUTerHmr 


\ 
K. 
Be 
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7 
ei 
zZ 
34 


{ 
:INTTABL4N : $i 
INTEHREC2PICHRE 
INTTABÜIEI:"DATU 
"ERFO 
INTTABt 253, "WERT 


RINTCHR&( 27 3CHRS$t 
el ı CHRE&(2 
RETURN 

REM LFRIFMT NAME+KOFPF : 

LPRINTTÄBEIA) TRERKuReEEEE ae" 
LPRINTCHREILAN: BEREIT 9 STORE LER SELER I ESHRREISI 
LPRINTTARL IA) Haase sereskarsseeeaeeer ı LPR NT 
L=LENCH$) Ss ZZ=INTI LEI \ 

LPRINTTAB« 253," für" FLPRINT 

LFRINTTRAB(28-229; He. BEURSEEER EL EN. 

‚RETURN 

REM MONAT+I 

BE=BBE+1 :E= 
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FOLMrOTe“ 
DBHFTUONTDTrTDIOHNTTI 
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IS Enz 
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THENBE=1 : CC=CC+l 
I EIREM ENGSCHRIFT 
:RETURN:REM NORMALSCHRIFT 


SC33ICHRECZTICHR$CB8) "Das eagen die 
CHR&CZFICHRSC3Z4) REM FETT+UNTERSTE. 


m 


LPRINTTAB 
LERINTEHREC: 


ERKL 
LFRINTTABE 
werte aus."C 
ALS 
LPRINT 
Eee 
i27) 
nd Enns 2? 
LPRINTCHRS$ 
zeigten Le 
LFRINT"Dis Wer 
hlecht anzu sen 
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Inn 

I’ TO 
aaa hr 
Buuae 10 
rn Ze Ir [lan 
BITTE 


mer TI mem ee ma en np nn jr Bu TO OTOTT PREISEN PUNI SI ONUNLNENONEN Dee du 


LAN de oa DNA OBER BERLRLN NDR mm men Te EEE SDR LT a BJ In bg ee Dome EB OL 
A WI Nm SZ SUN EN TOSHIBA EEE TION NGEEASDETELN 


LT CHRECZFICHREISN" 
ist der in z& 
42" bis 
REIN", Je nach diem 
INT -UMEN. a "-1aa"M$" sind nicht a 
n an der "4 

LPRINTN$"Krä amml ung"M&" Br. der "N$"Regeneration"M#". 
ä LPRINT:LPRINT"Die Schnittpunkte Is" ch PROZENT?"ME" bzw. 
übergänge von "N#"PLUS"ME" nach "NE"MINUS"ME" oder von 
15558 LPRINTN$"MINUS"M$" nach NE PLUSUME" sind als besonders 
HRELZFICHRS LESS" KRITISCH"'CHRECZTFICHREISFIME" zu werten. 
157& LPRINT"An diesen Tagen besteht die Gefahr, auf Kerken eem. 
seelischen oder geistigem Gebiet zu versagen. 


‚u 
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SOFTWARE 


"NS" KÖRPERKURVE'ME" £23-Tage) bestimmt das Körper] 
:LPRINTCHRECZFICHRECIAY "BIS," 

Of" <Angr itfstfreudiakeit" 
TO®E"-Unternehmungslust" :LPRINTOS" Widerstand" :LPRINTO®"- 


T'’Die "N&"SEELENKURYE"MER" 28-Tage) bestimmt das körper] 
"33LPRINTOS"-Al1geme ine Stimmungsiag 


:LFRINTOE"-Fröhli 


NT: EeeInle "NS "GEISTESKURVE"ME* £33-Tage) Bestimmt aus 
ER 
B.";:LFR INTOS"-Geistesgegenwär t" HLPRINTOS" -Ay 


1575 LPRINT 

1558 LPRINT"Die 

iche Wohlbefinden." 

1538 LERINTERRESSTICHRSG AED 

15r7&8 LPRINTTAB(S> ,"z.B,' :LPRINT 
1888 LPRINTÜS"-Energie" 

is18 LERINTOE Ausdäuer" 

iszA LFRIN 

Aggressiuität" 

1336 LFRINT 

i&48 LFRIN 

ich-sselische Mon BELLDdEN- 
1556 LFRINT:ILPRINTTABESI, "z.B. 

a" 

1558 LFRINTOE"- an lelen: :LPRINTO#"- -Optimismus" 
chkeit":LPRINTOS"-Kreatio 

i&78 LPRI 

schließlich jene 

1554 PRINTTABESS 
ffassungsfähigkeitt: 


IöOnMSPETMOgGE 


„e der drei anderen, | 
ebieten an, die mit Körper, 


CLUB-INFO 


Anfang Febuar dieses Jahres entstand, zu- 
nächst nur als Schnapsidee und aus einer loka- 
len 'Softwarekrise heraus, der GENIE/TRS 
80-USER-CLUB Bremerhaven. 

Mittlerweile wurde aus der Schnapsidee aber 
ein Club der sich sehen lassen kann; einmal 
monatlich erscheint unser CLUBINFO, unser 
Mitteilungsblatt mit Berichten von Mitgliedern 
und Fachzeitschriften. 

Der Club versteht sich als Bildungsgemein- 
schaft. D. h. wir sehen unseren Zweck nicht 
nur im leidlichen Tausch von immer galakti- 
scheren (und sich letztlich doch wiederholen- 
den) "Spacegames", sondern arbeiten gezielt 
auf die Erweiterung unserer Soft- und Hardwa- 
rekenntnisse hin. 

Der Programmtausch findet über die zentral 
angelegte Bibliothek statt. Der Autor eines 
Programms erhebt für den Fall der Entnahme 
seines Programmes eine Schutzgebühr zwischen 


3,--. und 10,-- DM je nach Länge des Pro- 


gramms. 


TLPRINTOS"-Schlagfertigkeiftn LFRINTOE"-Assotiat. 


1578 LPRINT: LFRINT"Die "NE"ERFÜOLGSKURVE "ME" 
Sie zeigt Tendenzen zu allen Lebesg 


ist die Mittelwertskur. 


Seele und Geist zusammenhängen 


1575 LPRINT 

ira& LPRINTTAB(S},"z.B."; :LPRINTO®"-Prüfungen" :LPRINTOS"-sportlich 

e Hochleistungen":LP RINTOS"-Operatianen" :LPRINTO®"-wichtige Lebens 
entsche idungen' 

ı1718 LFRINTO£"-Verhandlungen 

1754 LPRINTCHRES 27) CHR$ (455 : REM TAB" FDESCHEN 

1920 LPRINT"**" ;N$" ABER: "M&" Biorhythmen sind Keine Horoskope. Sie 
garantieren Keinen **Erfolg oder Mißerfolo. 

1818 LPRINT 

1828 LFRIMT 

za68 RETURN 

s@8862 LFRINTCHREIZFICHRELESSIOIZTS"TCHRECFTN 

3@a1@ LFEINT" DIESES BIORHYTHMOGRAMM WURDE SUF EINEM colour-genie 

ee BERECHNET UND MIT EINEM itoh 8518 SEDRIUCK 

3829 LPRINT" ****** Programmerarbeitung: Dieter Berblinger z#88%*" 

a SAN 86) "B425"CHR$(218) 

Ssaaa DA 21,57,708,124,151,131,212,293,273,394,334 

sBhd DET TANDAR, 31 ‚FEBRUAR 228; „NINPRZ SI APRIL „=6 ,MAT „31 „JUNI ‚38 ,JU 

L1,31 ,AUGUST,31 SEPTEMBER, 3 a ,ÜKTOBER, 21 ,NOVEMBER, 36 , DEZEMBER,31 


Weil je 50% dieser Gebühren auf das Konto des 
Autors und in die Clubkasse fließen, entfällt 
für die meisten Mitglieder schon nach kurzer 
Zeit der sonst monatliche Beitrag von 3,-- DM. 


Da wir mittlerweile Mitglieder aus allen Bun- 
desländern haben, hoffen wir natürlich schon 
bald DER GENIE/TRS 80 - CLUB Deutsch- 
land zu werden, aber bis dahin ist es noch ein 
hartes Stück Weg, auf dem wir jeden "ambiti- 
onierten" und lernwilligen "GENIE/TRS-Fan" 
gut gebrauchen können. 

Anfragen: 

K. Schmidt, "Bürger" 147, 285 Bremerhaven. 
Bitte mit -,80 DM Rückporto; CLUBINFO-Pro- 
beexemplar gegen 4,-- DM in Briefmarken (11 
Seiten z. Z.). 


Mit freundlichen Grüßen 
Klaus Schmidt - 
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'ABENTEUERBURG' ist ein Adventuregame in 
Basic geschrieben, mit deutschem Text. Ziel ist 
es, einen verborgenen Schatz zu finden. Um 


‚dieses Ziel zu erreichen, muß der. Computer mit 


Anweisungen, die aus einem oder zwei Wörtern 


. bestehen, durch die Burg gesteuert werden. Da- 


bei sind oft Gegenstände zu nehmen, zu be- 
trachten usw. Der Spieler kann jederzeit um 
Hilfe bitten und erhält je nach Situation :einen 


Kleinen Tip, der HUFZLICH oder ‚verwirrend sein 


BUR Ga 
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kann. Das Spielgeschehen spielt sich in 14 ver- 
schiedenen Räumen ab, die untereinander : ver- 
bunden sind. Es ist wichtig, seiner Phantasie 
freien Lauf zu lassen und auch die seltsamsten 
Eingaben sind berücksichtigt und werden beant- 
wortet. (Versuchen Sie z. B. einmal die Burg zu 
nehmen): Der Wortschatz des Spieles ist. groß 
genug. Können Sie sich nicht verständlich ma- 
chen, versuchen Sie es mit anderen, sinnglei- 


‚chen Worten. 


Rainer: Schmies 


a OS anaack ABENTEUEREURG Och 

3 KRckk COPYRIGHT BY RAINER SCHMIES nk 
2 u arte 

s BERCKk NIEHLER STR. 725 5 KOELN 60 Krank 


a 


im 


100 ELEARSOO:CLS:FRINTSZO."RRR ABENTEUERBURG SORK"SFRINTIFRINT: PRINT" 


ICH BIN IHRE SFIELFIGUR, DIE 
HINDERNISSEN STEUERN KOENNEN. DI 


SIE DURCH EINE 
5 GESCHIEHT DOREN EINGABE 


REIHE VON AUFGABEN UND 
VON SAET 


ZEN DIE AlUß EINEM ODER "ZWEI WOERTERN BESTEHEN. 


i10 FRINT"MEIN WORTSCHATZ IST GRÜ 


55 GENUG. 


FRORBIEREN SIE EINFACH AUS 
SIE KOENNEN JEDERZETT UM HILFE 


BITTEN WENN SIE NICHT MEHR WETTEREOMMEN. "Ss FRINT"BEISFIELE FUER EIN 


WAS IHNEN GERADE IN DEN SINN KOMMT, 
GRABEN: " 
' 420 PRINT” "HILFE? "GEHE NORD" 
RING’. USW. " 


i25 DEFINTX:DEFSTRA:DIMDE (6). 
"A):CF#1:A=STRINGSE (67,179) 
42& FORK=LTOSA: READAS: NEXT 


ERS (14), 


ESSE BROT’ LESE ZETTEL" "NEHME 


‚HEs1A), ‚OB#(14,D), „WEIIAl A .WILA, 


127 ZE=2: BU=0:81=8:10=6: WU: "7 FL=4, BR=9: Bl= 9: LE=10; EN=11: TR=e1lZ: Xfis= 12: 
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DR=14:5A=7: Fl=8: FE=9: 5U=10:8F=ell:$kel Ic KE=f 

130 FRINT"SIE KOENNEN AUCH EINE LISTE DER DINGE ANFORDERN, DIE SIE RB 
EI SIEH TRAGEN. IHRE AUFGABE IST ES EINEN SCHATZ ZU FINDEN, " 

I22 FORX=ITDS:READDECXIG NEXT: FORK=1 TOL AT REARCFE COX: NEXT: FORX=1TOL4: FR 
ee ee 
DRY=1TO4: READWECX,YIENEXTY, 

135 FORX=1T014: FORY=1T04: EN TINDENTYs X: INFUT"ZUM FORTFAHREN BIT 
TE "ENTER" DRUEGEEN. "4 FrRESTORE 

soQ CLS 

777 IFÜ=CRTHENFRINT"DAHIN KANN ICH NICHT GEHEN!V:GOTOLOOGELSECLS 
1000 FRINTEO, CHR#$ (25525 : FRINTE&O4,ECF& (CF): CHR CO: FRINT" ICH SEHE: "35 
ı FORX=1 TOF: FRINTOB# (CF, X)" "3: NEXTSFRINTCHRE CEO) A FRINT"MOEGLICHE WE 
GE: "ss FORX=1T04: FRINTWE (CF, X)" "3ENEXTEFRINTECHRE ERO) A FRINTA 

1020 Vad: GOSUIBAOOOO:FORX1=LTON4: READAI: IFAQ=ALTHENV=XN1 


1025 NEXT 
1040 RESTORE:ONV+1COTO&SI0G, 1100, 1200, 1200, 1200, 1200, 1200, 1400, 1400, 


1500,1600, 1700, 1200, 1800, 1900, 2000, 2000, 2000 „2100, 2100, 2200, 2700, 200 
O,2A00 2400, 2400,2400, 2500, 2700, 13 100, 2600, 1400, 2500, 2800, 2800 


1100 FRINTHS$ (CP) :GOTULDOR 


1200 IFAG="S5SFR"PRINT"ALSO SPRINGEN IST MIR VIEL ZU GEFAEHRLICH. "GOTT 
Hıüad 
1210 IFAO="REN"FRINT"EANN ICH NICHT LIEBER GEHEN, DAS IST WENIGER AN 
STRENGEND. ":G0TO1O05 
1211 IFASF="NOR"ANDEF=FANDST=SSTHENFRINT"DIE TUERE VERSFERRT MIR DEN W 
en IN DIESE RICHTUNG. ": GOTOLOOO 

ZiE IFAF="BUR"ANDEF=1ITHENCF=2: GOTOF7% 


121g IFAO="ELE"ANDEF=L1ANDLE=1OOTHENCF= 13: GOTO9FIELSEIFAO="KLE"PRINT 


"DAS KANN ICH HIER NICHT. ":60TO1000 

1216 IFAP="NOR"ANDCF=AANDWUZ FLOOFRINT"DER LOEWE LAESST MICH NICHT VO 

RBEI.":60TO1000 . 
1217 IFA9="OST"ANDEP=14ANDSAZ FLOOFRINT"DER DRACHE VERSFERRT MIR DEN 

WEG. ":GOTO1OOGO 

1218 IFAF="BRU"ANDLE=100OANDCF=11THENCF=13: GOTO1000 

1219 IFAP="BRU"FRINT"DAZU BIN ICH NOCH NICHT IN DER LAGE. ":GOTOLDOO 
1220 O=CF: IFA9="NOR"THENCP=ÜEF+WCR, 1) 160 TO999ELSEIFAI="SUE" THENOF=CP 

+RICR, 2) GOTOFIIELSEIFAIF="OST"THENCE=CFHWECOP, 3): GOTOFPFPELSEIFAYP="WES 
"THENDF=SCR+WCOR, 4) ı 5G0T0O7F9ELSEFRINT"DAHIN KANN ICH NICHT GEHEN. ":GOT 

O1lOOG 

1300 IFEF=TRANDAF="RAF"THENFRINT"DIE TRUHE HAT SICH GEOEFFNET. IN IH 

R LIEGT DER SCHATZ. DAS SPIELIST BEENDET, "sENDELSEFRINT"OK. DAS HABE 
ICH GETAN, ABER NICHTS GESCHIEHT. ":G0OTO1000 

1400 IFAP="RUR"'PFRINT"DIE IST MIR ERHEBLICH ZU SCHWER, "+: GOTO1OOR 


1402 IFA9="RUE"PRINT"DER IST ZU UNHANDLICH, DEN EANN ICH NICHT TRAGE 


N. ":5OTOIODG 
1404 IFA9="TÜUE"FRINT"DIE IST FEST VERANKERT.":GOTOL1O00 
1406 IFAI="FLA"ANDEF=4ANDFL=4THENFRINT"OH,. ICH HABE DIE FLASCHE GENO 
MMEN. SIEHT SELTSAM AUS. ":FL=50:0B# (4, 13 =": 50TO1000ELSEIFA9F="FLA"FR 
INT"ICH SEHE KEINEN FLASCHE. ":GOTOLOOO 
1407 IFA9="BIL"ANDEF=FANDEI=FTHENFRINT"HINTER DEM BILD BEFINDET SICH 
EIN TRESOR." : BI=50: 068% (9, 1)="":GOTOLOOOELSEIFAP="BIL",FRINT"ICH KAN 
N KEIN BILD FINDEN. ":G0T01000 
1408 IFAI="SCH"ANDEF=SANDSL=STHENFRINT"OR,. ICH HABE DEN SCHLUESSEL 5 
ENOMMEN. ":8L.=50: 0B8$ (5,1) ="": 5OTDLOOOELSEIFAB="SCHL"THENFRINT"ICH SEH 
E KEINEN SCHLUESSEL. ":G0OTO1000 
14093 I1FAS="SCHU"ANDEF=10ANDSU=S10THENFRINT" ICH HABE DIE SCHUBEARRE GE 
NDMMEN. "4 SU=56: ES (10, 1I="": GOTDIODOOELSEIFAP="SCH"ANDEF=1OTHENFRINT" 
HIER IST KEINE SCHUBKARRE. ":GOTO1O00O0 
1410 IFAF="ZET"ANDEF=ZANDZE=ZTHENFRINT" ICH HABE DEN ZETTEL GENOMMEN. 


":2E=50:0B# (2,3) =""EGBTO1000ELSEIFAF="ZET"PRINT" ICH SEHE KEINEN ZETT 
EL... ": 50 TOLOOG 7 a 


a 5 Safe Sn en an in u 
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:412 IFAF="KETTANDCF=SANDKE=STHENPRINT"ICH HABE DIE KETTE GENOMMEN. 
ıERe&üce OBE (5, 20 e"tNGOTO 1LOORELSEIFAF="KETTERINTHIER IST KEINE KETTE. 
I SOTOLDOD 

said IE F&7="LOE"ANDOR=STHENFRINT"DER LOEWE HAT DICH GETOETET. DAS 5PI 
EL. IST ZU ENDE. "sENDELSEIFAY="LOE"PRINT"ICH KANN KEINEN LOEWEN-ENTDE 
TEEN. "’ısOTOLGoe 
Alu IFA“ =" NUR" ANDERSTANDWU=7THENPR INT" SCHON SESCHEHEN. "oUleich DES 17 
„22er: 5OTOLOSOELSEIFAP="WUR"TERINTUKEINE WURST ZU SEHEN, "s5OTOIOOG 
1418 IF&Y="5AL" ANDEF=7ANGDSA=TTHENFRINTHABRE ICH BETAN, "ıS5A=I0:0BS$ 17, 
Ze BOTOLOGOELSETFAP="SAL"FRINTUHITER IST KEIN SALAT ZU SEHEN. "AGOT 
31000 es 

SAN IFAF="BRIUANDEF=& 3SNDER=STHENFRINMTUDER BRIEF IST ALT UND GEOEFFN 
ET, ER=50: 068 ( (&, 23 =" GOTOLOODELSEIFAPR="BRITFRINTUHIER GIET ES EEIN 
EN BRIEF, "ı6OTOLDGE 

422 IFAF="FEN"FRINT"EIN FENSTER KANN MAN MIGHT MITNEHMEN. "IGOTOLOOO 
1424 IFAP="LETD"ANDEF=LOASNDLE=SIOTHENFRINT" ICH HABE DIE LEITER GENOMME 
N. "us LE=50: 088110, 2)="":60TDOLOOOELSEIFAF="LEI"PRINT"KEINE LEITER ZU 5 
EHEN. ":5OTOLOOT = 

az IFAF="SFA"ANDEF=LLANDSF=LLTHENFRINT"SCHON PASSIERT, "5feioı BE ( 














11,1)=": GOTOIOOOELSEIFAF="SFA"FRINT"WO IST DENN HIER EIN SFATEN "sr 


SOTOLON) 


428 IFAY="BRUFRINT'GLAUBST DU ICH WAEHRE EIN HERKULES TG: GOTOLDON 
1420 IFAP="TRL"ANDCF=ISTHENFRINT®DIE IST FEST IM BODEN VERANKERT "IE 


STOLOOSELSEIFAF="TRU’FRINT"WELCHE TRUHE DENN 7':GOTOIDGO 

aa) = "SCH" ANDEF=LIANDSK=LSTHENFRINT"DAS ERSCHEINT MIR SINNLOS, 
ICH LASSE IHN STEHEN. ":5OTODLOOVGELSEIFAB="SCHR"FRINT"HIER IST KEIN SC 

HIRANE"GGOTOLOOG 

1434 IFAF="AXT"ANDER=1E3SNDXA=TITHENFRINT"OR, ERLEDIST.":ıXA=50: DR$ (13 
‚2)="":SOTDLOOOELSEIFAI="AXT"ERINT"HIER GIET ES KEINE AXT. "ıGOTOLOOG 
1426 IFA9="DRA'FRINT"DER DRACHEN HAT DICH VERLETZT. "ıFORK=1TI22 200: NE 
XTaBOTOROOT ’ 

1427 IFAF=" BUG" ANDEF=ZANDBU=TTHENFRINT" ICH HABE DAS BUCH. GENOMMEN." 

Blle50or ES (2,2 ett4 GUOTOLOOCO 

1422 PRINT"DAS KANN ICH LEIDER NICHT AUSFÜUEHREN. "GOTOIOOG 

1500 IFAP="WUR"THENFRINT"MHHH. 0. BIE er ECHT GUT PeNUeO:GOTOLG 

SOELSEIFAF="BAL"THENPRINT"NA JA, VIELLEICHT EIN WENIG TROCKEN, "ıSAed 
: GOTOLOOOELSEFRINT"ALSO TECH FINDE DAS IST ECHT EIN WENIE ZU ZAEH. "EEG 

TOO 

15800 IFAF="WUR"THENFRINT"NICHT SCHLECHT, DIE WURST. Be: GOTOLOOOEL 
SEIFAG="SAL"THENFRINT"LECKER, ICH ESSE GERNE SALAT": SA=0: GOTDLOODELS 

EPRINT"SOLCHE SCHWEINEREIEN KANNST DU NICHT VON MIR VERLANGEN. * :GOTO 
ıLooOG 

17090 IFFL=5OANDAIF="FLA"THENFRINT"DIE FLASCHE IST LEER. "}GOTOLOOGELSE 
FRINT"HIER GIET ES NICHTS WAS ICH TRINKEN KOENNTE. ":5EOTOLOOO 

1800 IFAF="AUFTANDCF=TANDSL=SOFRINT"DIE TUERE IST OFFEN. ICH KANN AU 
EH NACH NORDEN GEHEN. "ıS5T=1:G60TO1000° 

1802 IFAF="AUF"ANDER=FANDSLZSSOFRINT"ICH HABE KEINEN SCHLUESSEL. "ıG0 
TO1000 3 

1804 IFCF=&ANDAY="LOE"THENZDOO. 
1306 IFCF=?ANDA9="FEN"FRINT"DAS FENSTER: 15T GESCHLOSSEN. ":OB$ (CP, 2) = 
"EIN GESCHLOSSENES FENSTER. "WGOTOLOOO .. £ 
!808 FRINT"ICH KANN DIR NICHT HELFEN, ABER ICH VERSTEHE DICH NICHT." 
: SOTOLOON 





1900 LFCF=SANDAG=" TUE" ANDSTSOPRINT"DIE TLERE IST VERSCHLOSSEN. ":60T0 


LO00 
LF0Z IFOF=EIANDAF="TUE"ANDST=IPRINT"DIE TUERE IST GSEOEFFNET. ICH KANN 


JETZT AUCH NACH NORDEN BEHEN. "s6OTDAO00 


1904 IFCF= LZANDAF="TRU"PRINT"DIE TRUHE. LABSST SICH NICHT OEFFNEN. "ıG 


HTOLOGOG 
170& IFEF=13ANDAF="SCH"FRINT"DER SCHRANK IS ST in ":GÜOTOLOGO 

















| 
| 
! 
| 
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197089 TIFER=$ANDAF="TRE"FRINT"DER TRESOR ENTHAELT ATEHIES BU TOTOSE 
1710 IFCF=ZANDAF="BUEV’FRINT"EIN BUCH IST HERAUSGEFALLEN,. "ıBle2:0B8 (2 
«m="EIN BUCH "GOTOLOOO 


Pl IFAF="FEN" ANDEP=FANDUBS (OF ‚23="EIN GESCHLOSSENES FENSTER "THENG 
- ERCCFW22="EIN OFFENES FENSTER "aRFRINT'OR, ERLEDIGT. ":GOTOLOGC 


Ä\P12 FRINT’DU VERLANGEST UNMOESLICHES vom MIR," G@0TOLIGO 
zoo TFaQ@="TOE"FRINTIICH KANN MICHT TOETEN,. 4 GOTOLOOG 
TFAo="BET"'FRINT"OR, ICH HABE GEBISSEN. NICHTS PFASSTERT,. "SG60OTOLG 


a 
ZOO FRINT"ICH MABE ERAEFTIG ZUGETRETEN, ABER NICHTS GESCHIEHT. "ıGOT 
BIDa0 

‚inc TIFOEF=SANDAF="LDE"THENFRINT'DER LOEWE HAT DICH AUFGEFRESSEN. DAS 





SPIEL IST BEENDET." ENDELSEIFAG="DRA"ANDEP=14THENFRINT"DER DRACHE # 
AT DICH AUFGEFRESSEN. DAS SPIEL IST BEENDET. ":ENDELSEFRINT"HARBE ICH 
GETAN. NICHTS PASSIERT. GOTOLONG 

2290 PRINT"DAS IST MIR NICHT OHNE GEFAHR NICHT MOEGLICH, ":GOTOLOOO 
2300 PRINT"ICH HABE: "ss IFZESSOPRINT"TEINEN ZETTEL ": 

2202 IFBU=SSOFRINT"EIN EUCH "3 

2304 IFSL=SOFRINT"EINEN SCHLUESSEL "; 


ZEO6 IFWU=SOFRINT"EINE WURST": 
2308 [FFL=S0OFRINT’EINE FLASCHE"; 
zu10 IFER=SOFRINTPTEINEN BRIEF ": 
ZE1l2 IFBI=SOFRINT'"EIN BILD "5 
an IFLE=SOFRINT"EINE LEITER "; 





IFXA=5OFRINT"EINE AXT "3 
IFSA=SOFRINT"EINEN SALAT": 
IFSU=SOPRINT"EINE SCHUBKARRE 4 


IFSF=SÖFRINT"EINEN SFATEN "5 

24 IFEESSOFRINT"EINE KETTE 
E26 FRINT:GSOTOLDOO 
2400 IFAF="ZET"TANDZE=-TOTHENZE=TIDBE (CZ, I I="EINEN ZETTEL ":GSOTOZ4IDELS 
EIFAY="ZET" AAN 
za401 IFAF="LIS"THENTEOD 
ZA IFAF="FLA"TANDFL=SOTHENFL=4: 0R# (4, 2) ="EINE FLASCHE ": GOTOR45S0ELS 
EIFAF="FLA"THENZ4GO 
za403 IFAg="SCHL"ANDSL=EOTHENSL=S:OR$ (5, LI ="EINEN SCHLUESSEL ":S0T0E4 
a a a 
2404 IFAF="KET"ANDEE=SOTHENKE=S:0B$ 19,2) ="EINE KETTE ":GSOTOR45S0ELSEI 
FAP=UIKET", 2400 
2405 IFAI="WUR"ANDWU=SOANDEF=S THENWU=LD9OSFRINT"DER LOEWE IST EINGESC 
HLAFEN. "3 G60OTOLOOG 
406 IFAI="WUR"ANDWU=SOTHENWU=T Dar SalimEIDe WURST ":GOTOR4SOELSEI 
FAF="WUR", 2450 
2407 IFAI="SAL"ANDSA=IOANDEF=14THENSA=100: FRINT"DER DRACHE FRISST DE 
N SALAT UND LAESST DICH VORBEI. ":GOTO1000 
2408 IFAI="SAL"ANDSA=SOTHENSA=T:DBE (7,2) ="SALAT ":GOTDZ4I0ELSEIFAFEN 
SAL", 2450 
2409 IFA9I="BRI"ANDER=SOTHENER=8: OR# (8, 12="EINEN BRIEF ":GOTDZ450ELSE 
IFAP="RRIU", 2460 
2410 IFAI="RBIL"ANDEI=SOTHENEI=9:OB# (9, 1 )="EIN BILD ":GOTOE45GELSEIFA 
$="RTL", 2460 
z411 TFAB="SCHU" ANDSUSSOTHENSU=10:0B$ (10, 1) ="EINE SCHUBKARRE ":GOTOE 
450ELSEIFAB="SCHU" , 2440 . 
Z41E IE ATz LET NDERZSRANDLE SELTENE FESREERIN SE LEITER STEHT IM 
BRUNNEN, ": 5OTO1000 : 
2418 IFAI="LEI"ANDLE=SOTHENLE=10:0EB# (10, D="EINE LEITER "s GOTOS4SOEL 
SEIFAP="LEI", 2460 





2414 IFAI="SPA"ANDSF=SOTHENSF=11:0B$ (11, D="EINEN SFATEN nn or 


LSEIFAYP="SFA", 2480 
ZA TFAG="AXT" ANDXA=SOTHENXA=13:0B$ (17, 2) ="EINE AXT ":GOTOZASOELSEI 


FAFS"AXT", 
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2416 IFA9=NBUCVANDEU=FEOTHENBU=TIORS CH, ED "EIN BUCH "IGOTOR4SDELSEIFA 
P=PBLUC" 2460 

2417 GOTOEAGG 

2450 FRINT"'OR, HABE ICH ERLEDIGT. '":GOTOLODO 

2460 FRINT"HABE ICH NICHT BEI. MIR. FORDERN SIE LISTE AN. "sGOTOLOON 


a IFAPe"NUTHENFRINT"WOHIN SOLO TECH DENN SEHEN 7"G:GOTOLODOELSEFRINT 
IST NICHTS. BESÖNDERES ZU ERKENNEN, "ı 50T Or : 

& DANDAS ="FLATHENFRINT'AUS DE Re FLASCHE KOMMT EIN GEIST.":1 

FOL=S SOTHE Ni RINT "ER HAT DIE DEN SCHLUESSEL GENOMMEN. "aSLein OB 5, de" 

EIN SCHLUÜESSEL ":GOTOLOOOELSELDOO 

2610 IFA9F="FLA"THENFRINTTICH HABE KEINE FLASCHE BEI MIR. "sGOTOLOOOEL. 
EFRINTUHABE ICH GETAM. NICHTS GESCHIEHT. "WBOTOLOON 















= IFÜFeLIANDAF="LET "ANDI. E=50FRINT"DIE LEITER STEHT IM BRUNNEN. "LE 
tl : 50T CIGOc 





Ex »SOr AINT"ICH HABEOKEINE LEITER. ":GOTO10 
or R 
ZPO FRINTUICH KANN DICH NICHT VERSTEHEN. ':GOTOLOOO 

ago 1 Bag ZET"'ANDZE=SOPFRINT"AUF DEM ZETTEL STEHT: "MAGISCHES WORT: 
RKAFUR"GGSOTOLOGO | x 


2810 IFAF="ZET"ANDZEX >SORRINT" ICH HABE KEINEN ZETTEL.":GOTOL200 












ag IFAG="ERI"ANDERC>SOFRINT" ICH ‚HABE KEINEN ERIEF BEI MIR. ":GOTRLO 

oo 2er. 

2820 1FAF="BUC"ANDRU=S SÖPRINT" ICH LESE: BEACHTEN SIE BITTE JEDE KLEIN 
- IGKEIT, UND SEIEN SIE NICHT VERFRESSEN. ":GOTO1000 


RED IFAF="ERI " ANDER= SOFRI NT’WILLST DU DEN DRACHEN EBERWINDEN ‚SD MU. 


SssT DU IHM on. :SOTOIOOE ; ne 
Parc IFAF= De "ANDRUSSSOPRINT" ICH HABE KEIN EUCH ZUM LESEN. "ıGOTO100 
C 


2840 FRINT"SO ETWAS KANN MAN NICHT: LESEN. ICH JEDENFALLS NICHT.":G0T .,, 


LaoCc 


OO GOSUBLOOOOT LFAO=" WER" ANDAI=" GES" THENPRINT" ICH EIN WIEDER GESUND he 


"RFORK=LTOLOOOENEXTICF=1:50T01000 | 
2005 IFAO="HIL"FRINT"AM BESTEN WAEHRE ES, ICH WUERDE WIEDER GESUND." 
:GOTOEDON ' 
2210 FRINT"ICH KANN: NICHTS TUN BEFOR ICH WIEDER GEEUND REIN. "'IGOTOEOO 


co 
SEFFFF GOTO L OO 
Li 


DOCH BIN pra0ı "ms: INFUT"WAS SOLL ICH TUN: Als FORX=1 TOLE NiALD: IFMID. 


$(Al,X. 122" "THENNEXT:AO=AL:ÄOSLERFTE (AO. TI) LAPS"IN RETURN 
KOO1T Ad LEFT&(AL, X 128 AF=RIGHTE (AT, HENALI U LAO=ÜERTE (AO, 3) ı AB=LEF 
TELAP, A ıAIE LEFTSCAPLDSRETURN 00 e u 
ZANOD DATACHIL" „GEHT, "LAU", "REN" SER", "SAG" NEN", "HOL", "Kal, "ESS 
""!TRI" "ELE", "SCH", "DEF", "TE", "BEISS"TREN,NSTR" "KIT, mg "LIE", 
nual" i ARE" „"LES " „"GERB", n GIB", "SEHR! , "STE", " 'RUR! ."REI # e unymt a "ZEN 5 "L 
en: LEN Te" , 
5000 DATA"NORD", "SUED", "OST", "WER ;T", TOBEN" UNTEN" 
8E01O DATA"ICH BEFINDE MICH AUF, EINER WIES E, "Arch EEFTINDE MICH IN D 
ER BIBLIOTHEK", "ICH STEHE IN EINEM. DUNKLEN’ RAUM" NICH "BIN IN EINEM 
CHMUTZIGEN WEINKELLER", "YCH STEHE.IN EINEM KLEINEN KELLERRAUMN, "ICH" 
STEHE IN EINEM TURM", "ICH STEHE IN DER SBEISEKAMEERW-.N 
EN DATA"ICH HALTE MICH IN EINEM VERLIESS AUF OICH BIN In. DER GALE 
RIE", "ICH BEFINDE MICH IM GARTEN", "ICH STEHE "AUF EINEM HOF", "ICH BIN 
IN EINER GRUFT", ICH STEHE IN EINEM GEWOELBE" "ICH BIN AUF EINEM EN 
GEN FLUR" 
65030 DATA"GEH’” IN DIE BURG." "LESEN BILDET", "ES HANDELT . SICH UM EIN 
BHS- 
HTS ZU SAGEN", "WIE KRIEGE ICH DEN WOHL RUHIG PN, "ESSEN MACHT SCHLA NER 
RIE", "LESEN BILDET", "NICHTS ZU SAGEN" 
254 DATA"HIER LIEGT EINE MENGE ZEUG." , "VIELLEICHT MIT EINER LEITER 
u zu SAGEN", "MAN KANN ALLES. GEBRAUCHEN! "OB DEF" WOHL. VEGSET 
SRIER IST 7" DR ne a ee rn 








SCHLOSS", "SCHON DIE GESE HIE HTE VOM FL. ASCHENGEIST: GEHDE RTT""NIO 












































20 GENE DATA 


EDEN DATAVEINE BURG", '',"", »EINEN ZETTEL" "EINEN BUECHERSCHRANK 
i "E INE VERSCHLOSSENE TUER", "","", "EINE FLASCHE", "","", "EINEN SCHLUES 
SEL" "EINE KETTE", "", "ZINEN LOEWEN", "4,0", "EINE WURST" "BALAT""N)"E 


SOFTWARE 


INEN BRIEF", "EINE FOLTERBANK","", "EIN BILD" 
BEOSO DATA"EIN OFFENES FENSTER", "" "EINE SCHUBKARRE", "EINE LEITER", " 
""EINEN SPATEN", "EINEN BRUNNEN", "", "EINE TRUHE","","", "EINEN SCHRAN 
KEINE AXT",""S"EINEN DRACHEN" "", 9" 

65070 DATA"NERD", "1,99, "NORD" "!SUED" "WEST" "NORD" HOSTe, "" 
‚ "NORD", "SUED" , "OST", "", "NORD", "", 0%, WEST", "NORD", "SUED", "OST", "WES 
ya „ KIO fr" n SHE" 5 In 8 A 12 18 u sr 0 " ıt SUED 1 „ Hr x " WEST" a El NORD" 4 FEED" . vr gr E sh 11 u ur 
} NSUED" 5 NIT" “ 32 18 

ESOBO DATA" NSUED", HU WERT, nn un NESTE, 0 NSUED" gSTe, nun, 
11 #r r rnzT a & ge zn " : 5 





LEOFCDATAL,O ee u re td 
IE er En On nd TE 5- Ct, ei Br Dei, 


1 


52500 FRINTYICH VERSTEHE NICHT W355 DU YON MIR WILLST. "GG GOTOL OD 


HIRES- 
GRAFIK 





Was heißt hier nun hochauflösende Graphik. Ein 
kluger Mann hat einmal gesagt, daß hochauflö- 
sende Graphik in etwa bei 500 x 500 beginnt. 
Gute CAD Systeme bringen eine Auflösung von 
etwa 4000 x 4000 Punkten pro Bildschirm. Die 
von den Händlern angebotene. "hochauflösende 
Graphik" endet beim COLOUR GENIE bei 160 x 
96 Punkten. 

Nun kann man das ©. G. durch einen Trick dazu 
bringen mit einer Auflösung von 320 x 192 zu 
"zeichnen", 

Natürlich kann man diese Graphik auch mit 
Text beliebig mischen und in allen 16 Farben 
darstellen. Durch diesen Trick werden die 128 
frei: programmierbaren Zeichen verwendet, das 


.heißt man hat auch noch die vollen 14kB Ram 


frei. 

Dieses Programm ist allerdings nur eine Idee 
mit einem kleinen Beispiei verdeutlicht. Man 
kann dieses Programm natürlich ohne weiteres 
mit anderen Programmen (z. B. Drei-Dimensi- 
onal) "kreuzen". Dies nur als Anregung gesagt. 


Erklärung zum Programm: 
- Zeile 50: Tastatur wird abgeschaltet, mini- 


male Geschwindigkeitssteigerung. Kann wegge- 
lassen werden! 

- Zeile 60: Sämtliche frei programmierbaren 
Zeichen werden gelöscht. 

- Zeile 80: Zeichen für Koordinatenkreuz wer- 
den definiert! - 

- Zeile 100-110: Koordinatenkreuz wird gezeich- 
net. 

- Zeile 120: Koordinatenkreuz wird beschriftet. 
Gezeichnete Funktion wird als Formel geschrie- 
ben. 

- Zeile 130: Unabhängige Variable (x) wird defi- 
niert. 


- Zeile 140: Darzustellende Funktion wird durch 
die Formel £f(x)=y=INT(SQR{X x 100)) definiert. 


Wenn man eine Formel ohne INT(c) definiert 
wird man schnell merken warum es sein muß. 


- Zeile 150-260: Der Trick. Einfach abschreiben 


und fest dranglauben. 

- Zeile 280: Tastatur wird wieder eingeschaltet. 
Während das Programm läuft nicht auf beide 
(RST) Tasten drücken! Das Programm geht da- 
durch verloren. 
Viel Spaß! 
Bernd Drechsel 


10 ” Hochaufloesende Graphik (320x192) 


30 * Bernd Drechsel (20.05.1983) 


a0 ° 
SO FOKE18405,82 


&0 FORX=&HFAOOTOSHFFFF: FOKEX, O2 NEXT 
70 ELS:CHAR1:DIMAL1SI :J=-3049:K=1T0 


hs are Rh ne un Auch Arlo u DON Du 00 222 


| 
\ 
j 
| 
| 
| 
\ 
\ 
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SOFTWARE __GENIEDATA 2: 


30 FORX=0T015: READA (X) : POKELHFA400+X ,ALK) :NEXT 
90 DATA255,0,0,0,0,0,0, 0, 1nis4y 1a1y1s1s1 
100 PRINTSB10,STRING$ (30, 128) 

110 FORA=0T019: PRINTS9+40KA,CHRS (129) :NEXT 
120 PRINTSB7Z, "x-Achse": :PRINTSO, "y-Achse"; : PRINTS920, "# {x} =SOR X)"; 
130 FORX=0T0230 

140 Y=INT(SAR (Xx100) ) 

150 A=INTIX/B8)+1:7B=INT{Y/B)+1:5=809+A-EX40 
150 IFS{>HTHEN J=J+8:K=K+l 

170 Al=(X/8-A+1)38:B1=(Y/8-B+1) 88 

180 IF A1I=0THENPOKEJI-B1,128 

190 IF AlI=1THENFOKEJ-B1,64 

200 IFAi=2THENPOKEJ-B1, 32 

210 IFA1=ZTHENPFOKEJ-B1,16 

220 IFAL=4THENPOKEJI-B1,8 

220 IFAL=STHENPOKEI-B1,4 

240 IFAL=4THENFOKEJ-BL,2 

250 IFA1=7THENPOKEJI-Bi,1 

260 H=5:PRINTSH,CHR$ (K) 

270 NEXTX 

280 POKE16405, 227 

290 END 





LIEBE LESERIN, LIEBER LESER! 


Sie haben sicherlich schon oft bemerkt, daß die GENIE DATA versucht, Ihnen mehr als andere 
Computer-Fachzeitschriften zu bieten. Wenn Sie sich nun einmal die hintere Umschlagseite die- 
ser GENIE DATA ansehen, werden Sie Feststellen, daß wir Ihnen ab der Nummer vier 1983 ei - 
nen weiteren neuen Service bieten: 


DEN GENIE DATA SOFTWARE-SERVICE. 


Wir wollen Ihnen jeweils alle Programme aus einer GENIE DATA auf Compact-Cassette 
anbieten. Um das aber tun zu können, brauchen wir Ihre Mithilfe. 


Wir möchten Sie also bitten, wenn Sie uns einen Artikel einsenden, legen Sie bitte auch das be- 
treffende Programm auf einer Compact-Cassette bei. 


Als kleine Entschädigung für diese Mühe, bekommt jeder Autor, dessen Artikel veröffentlicht 
wird, eine SOFTWARE-SERVICE Cassette gratis, auf der alle RE der. betreffenden 
GENIE DATA gespeichert sind. 


ETWAS ANDERES: 


Wenn auch Sie einen Artikel für die GENIE DATA haben, aber nicht über einen Drucker verfü- 


gen, reicht uns auch die Einsendung des Programms auf Cassette, die erforderlichen Ausdrucke, 
werden dann bei uns in der Redaktion erstellt. 


Also, machen Sie mit! Schreiben auch Sie Artikel für GENIE DATA! 
ÜBRIGENS: 


Selbstverständlich gilt auch noch immer unser Angebot, für private Abonnenten der 
GENIE' DATA unter der Rubrik 'Kleinanzeigen' drei Textzeilen für Sie kostenlos zu veröffent- 
lichen. 


UND AN DIE COMPUTER-CLUBS: 


Wenn Sie einen neuen Club gegründet haben. oder auf ein Treffen hinweisen wollen oder noch 
Mitglieder suchen oder wenn sich bei. Ihnen etwas neues getan hat: nr 
Schreiben Sie uns einen kleinen Bericht, er wird für Sie kostenlos veröffentlicht. 


Sie sehen, wir sind immer bemüht, Ihnen optimale Leistung zu bieten!!! 
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|Rechnund 
4 


SOFTWARE 





HAUSHALTS 


FINA 


Wem ist es nicht schon passiert, daß er seinen 
Homecomputer gegenüber Freunden oder Fami- 
lienmitgliedern verteidigen mußte, welche 


. glaubten das "Ding" tauge doch nur um f£lim- 


mernde Raketen oder UFOS auf der Mattschei- 
be abzuschießen. 

Was liegt näher als in einem solchen Fall die 
Nützlichkeit des Computers anhand eines Sta- 
tistikprogramms. zu demonstrieren, welches in 
der Lage ist alle regelmäßigen und unregelmä- 
Rigen Kosten des Haushalts in anschaulicher 
Form zu sortieren und darzustellen. 


Programmbeschreibung: 


. Das Programm fragt zunächst nach der Anzahl 


der relevanten Datazeilen; -womit die Möglich- 
keit gegeben ist, die im folgenden beschriebe- 
nen Berechnungen auf einen Teilbereich der am 
Ende des Programms stehenden Datei zu be- 
schränken. 

Die Datei beinhaltet alle im Haushalt anfallen- 
den Zahlungen wie Miete, Strom etc., wobei 
pro Zeile genau immer eine dieser Zahlungen 
mit ‚Empfänger, Betrag, Zahlungsmonate und 
Zahlungshäufigkeit pro Jahr angegeben ist. 


Nach Eingabe der gewünschten Zahl erscheint 
das Menue: 


NZEN 


COLOUR GENIE 


A - Aktuelle Monatsübersicht: 

Hier erfragt das Programm zunächst die Mo- 
natszahl (1-12) des gewünschten Monats, so- 
dann werden die für den gewünschten Monat 
anstehenden Zahlungen. auf dem Schirm mit 
Gesamtsumme ausgegeben. Gleichzeitig findet 


‘ein Vergleich zur durchschnittlichen Monatsbe- 
lastung ‚statt und die Differenz zwischen ak-' 


tuellem und statischem Monat wird angegeben. 


D - Statistischer Monat: 


Alle Zahlungen, welche im Laufe eines Jahres . 


anstehen werden auf einen Monat bezogen und 
zusammen dargestellt. 5 


J - Jahresbilanz: 
Eine Gesamtdarstellung der Haushaltsfinanzen 
unter Angabe der Zahlungshäufigkeit, des Ein- 


zelbetrages und der Jahressumme der einzelnen‘ 


Posten, sowie der Jahresgesamtbelastung des 
Haushaltes. 


N - Neue Datenmenge: 

-führt zurück an den Anfang des Programms, 
um die Anzahi der zur. Erhebung relevanten 
Daten zu verändern. 


Nach Ablauf der oben geschilderten Berechnun- 
gen erscheint jeweils die Eingabeaufforderung 








SOFTWARE 


"N - NEU D - DRUCKEN", womit die Mög- 
lichkeit gegeben ist, entweder mit N zum Me- 
nue zurückzugehen oder mit D den gesamten 
Bildschirminhalt auf den Drucker auszugeben. 


Anpassung an GENIE I/II 


Da das Programm auf einem COLOUR GENIE 
erstellt wurde, müßten für GENIE I/U folgende 
Änderungen vorgenommen werden: 
74 FORI = 15359TO 16319STEP64 


GENIEDATN 23 
Pla llansfge POKEV,64 


Weiterhin empfehle ich die TAB-Marken und 
andere Printanweisungen dem Bildschirmformat 
des GENIE I/II (64 Zeichen) anzupassen. 


Anm.: Vielleicht gelingt es Ihnen mittels die- 
sem Programm in der nächsten "Haushaltssitz- 
ung" die nächste Systemerweiterung durchzu- 
setzen! 
Viel Glück! 

K. Schmidt 


100 RRRRRRRBRRRRRRORRRRCHERRICKRROREIIOKEK 
110 "RRKKCKREK HAUSHALTS-FINANZEN KORRKCKKXK 
120 RRRRRRRRKORIRRRRODRKEROBORSISCHREEKKIEKK 


.130 ”x3x%* Klaus Schmidt 
140 "xktıkk Bgm.-Smidt-Str. 


150 "xıKkkk%. 2850 BREMERHAVEN 


MAI 1983 
147 XEKERKIKK 


KKXKK 


1 XKRKrKIKK 


160 RAR ORDRRRRORRORRORORRITRDDISODICKN 


170 CLS: CLEAR1O000 


175 DIMMN$ (123 2 DIMN$ (20) „B(20) , 2% (20), ZA(20) 
180 FORX=1T012: READMN$ (X) :NEXT:LPRINTCHRS (15) 35 
190 PRINTS202, "ANZAHL DER RELEVANTEN DATAZEILEN"; 


1975 INPUTAR:IFA<SITHENI17 
200 FORX=1TDOA 


210 READN$ (X) «READER X) EREADZS (X) :READZAIX) 


220 NEXT 


2Z0 CLS:PRINT"XKKKRKKEKKK HAUSHALTSFINANZEN KIRERKERKK" 
240 FRINTS205,"A — AKTUELLE MONATSUERERSICHT" 

250 PRINTSA0S,"D - STATISTISCHE MONATSUEBERSICHT" 

z&60 PRINTS305,"J — JAHRESEBILANZ" 

270 PRINTS805,"N - NEUE DATENMENGE" 


280 1$=INKEY$ 

290 IFI$="A"THENSIO 

300 IFI$="D"THENS1O 

310 IFI$="J"THENSIO 

320 IFI$&="N"THENRUNELSE2BO 


330 CLS:PRINTS205, 3: INPUT"MONATSZAHL";M 


535 IFM<1DRM>112THENSSO 
340 M$=5TR$(M) 


345 IFM>FTHENM$=RIGHTS$ (MS, 2) ELSEM$=RIGHTS$ (M$, 1) 


350 ELS:PRINT" 
359 GDOSUB&FO: PRINT 
340 FORX=1T0OA 
370 IFZ$ (X) ="M"THENA43O 
380 FDRY=1TOLEN {Z$ (X) 


MONATSUERBERSICHT FUER "3MNS$ IM) 


390 MX$=MIDS (Z$ (X) „Y„ 1): IFMX$=" /" THENA420 
200 IFLEN {M&$) =2THENMX$=MIDS (ZE (X) „Y,2) 
410 :IFM$=MX$THENY=LEN (7$ (X}) : 50OTO430 


420 NEXTY:GOTD440 


430 PRINTN$ (X) 5 TAB (30) 5 :PRINTUS ING" HH. #4" BOX) 


435 SU=SU+BCX) 
440 NEXTX 


". 


450 PRINT:PRINTTAB (203 "SUMME": TAB (30) 35 


455 FPRINTUSING"##HRH. #4": SU 


460 FORX=1T0A: JS=JS+B(X)XZACX) NEXT 

470 MS=18/12:MD=MS-SU:SLU=0: IS5=0 

480 PRINT"MONATLICHES MITTEL":TAB(30)3 
485 PRINTUSING" HER. #4" ; MS: MS=O 

490 PRINT"DIFFERENZ IM ";MN$(M); TAB(I0); 
495 PRINTUSING "#44. 44" ; MD: MD=O 
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500 
510 
515 
520 
530 
540 
550 
560 
565 
570 
575 
580 
590 
&00 
610 
620 
630 
635 
640 
645 
650 
660 
665 
670 
675 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
785 


24 GENIENATA | SOFTWARE | 





GOSUR700: G0OT02350 

ECLS: PRINT" STATISTISCHER MONAT" 
GOSUBA90: FRINT 

FORX=1TDA 

MB={BUXIKZACK)I /12: SU=SU+MB 


FRINTNS$ (X) 3 TAB (30) 3 :PRINTUSING" ####. 3#" ME 

NEXT 

PRINT:FRINTTAB (20) 3 "SUMME" 3 TAB(30)35 

PRINTUSING #44. ##" SU 

PRINT: PRINT "JAHRESGESAMTSUMME" ; TAB(29) 3 
PRINTUSING"HHH##. ##" 3 SUX 12: SU=O 

G0SUB700: G0T0230 
CLS: PRINT" JAHRESBILANZ": GDOSUBAFO: PRINT 
PRINT"EMFFAENGER ZAHLUNGSART JAHRESGESAMT": PRINT 
FORX=1TOA 

JB = B({X) * ZACK) 

PRINTNS (X) zZ TAB(12) 3: PRINTUSING"##"3 ZA(X) 3 

PRINT" x "STAB(AT): 

PRINTUSING"###.##"3 B1X); = FRINTTAB (30) 3 
FRINTUSING" ####.##": JB 

SU=SU+JB: NEXT: MS=SU/12 ’ 
PRINT: PRINTTAB (10) " JAHRESGESAMTSUMME" ; » TAB (29); 
PRINTUSING "HH. #3" 2 SU 

PRINT:PRINT"MONATLICHER DURCHSCHNITT": TAB(30); 
PRINTUSING"##44#. #4#" :M5 

MS=0: SU=0: GOSUB700: GOTO23O 

FRINT" ("ıA2" STAMMDATEN)": RETURN 
PRINT:PRINT"N — NEU D —- DRUCKEN" 

I$=INKEY$: IFI$= “N"THENRETURNELSEIFISL>"D"THENT1O 
PRINTCHRS$S (29) CHRS$ (27) CHRS$ (30) 

v6=" "HV=VARPTR (VS): FOKEV, 40 
FORI=17408T018328STEP4Ö 

POKEV+1, IAND255: POKEV+2, INT (1/256) 


LPRINTCHR$ (14), STRING$ (10,32), V$ 


NEXT: 50T0700 
DATA "JANUAR" „ "FEBRUAR", "MAERZ", "APRIL", "MAI", "JUNI", "JULI" 
DATA "AUGUST" „"SEPTEMBER* ,„ "OKTOBER" „ "NOVEMBER" , "DEZEMBER" 


79709 ° 


800 
810 
820 
8350 
840 
850 
BA0 
870 
880 
890 
200 
910 
720 


REM NAME BETRAG ZAHLUNGSMONATE ZAHLUNGSART 
DATA "MIETE+NK", 765.23, "M",12 

DATA "STROM", 123.50, "/274/&/8/10/12",6 
DATA "GEZ",39,"/1/477/10",4 

DATA "ZEITUNG", 36.80, "/2/5/8/11",4 

DATA "VERSICH A",34,"/3/9",2 

DATA "VERSICH B"„85, "/1/4/7/10",4 

DATA "VERSICH C",122.5,"7/1",1 

DATA "KFZ STEUERN" „256. 77,"/6",1 

DATA "KFZ VERSICH" 123.44, "/2/5/8/11",4 
DATA "BENZIN", 100, "M",12 

DATA "RUECKLAGEN", 100, "M",12 

DATA "SPAREN", 50, "M",12 


Beispiel-Ausdruck JAHRESBI LANZ 


{ 9 STAMMDATEN) 
EMPFAENGER ZAHLUNGSART JAHRESBESAMT 
MIETE+NK 12 x 765.23 2182.76 


STROM & x 123.50 741.00 
BEZ 4x 39.00 1558.00 
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SOFTWARE 
ZEITUNG 4x 38.80 147.20 
VERSICH A 2 x 34.00 68.00 
VERSICH B 4x 85.00 340.00 
VERSICH E 1 x 122.50 122.50 
KFZ STEUERN 1 x 256.77 256.77 
KFZ VERSICH 4 x 123.44 493.76 
JAHRESBESAMTSUMME 11508B.00 

MONATLICHER DURCHSCHNITT 


759.00 


MONATSUEBERSICHT FUER MAERZ 
(9 STAMMDATEN) 


MIETE+NK 765.23 
VERSICH A 34.00 
SUMME 799.23 
MONATLICHES MITTEL 959.00 
DIFFERENZ IM MAERZ 159.77 
STATISTISCHER MONAT 
( 9 STAMMDATEN) 

MIETE+NK 765.23 
STROM 61.75 
BEZ 13.00 
ZEITUNG 12.27 
VERSICH A 5.67 
VERSICH B 28.33 
VERSICH C 10.21 
KFZ STEUERN 21.40 
KFZ VERSICH 41.15 
: SUMME 959.00 

JAHRESGESAMTSUMME 


11508.00 





VOKABEL-TRAINER 


Vokabelabfrage ist ein Programm, um die Voka- 
beln einer beliebigen Fremdsprache abzufragen. 
Im Anfang mußt Du die gewünschte Fremdspra- 
che eingeben. Hast Du dies getan, erscheint ein 
‚Menue-Tablett. Nun als Erstes die Vokabeln ein- 
geben, danach kann man sie noch einmal aufli- 


sten lassen. Bei dieser Auflistung wird die "En-' 


ter"-Taste .angepeekt. Solange Du diese Taste 
drückst, werden :die Vokabeln aufgelistet, läßt 


Du sie los, stoppt das Programm. Dasselbe ge- 


schiehtt am Ende des Listens mit der 
"Clear"-Taste. Sollten nun 
falsch eingegeben worden sein, so kann man sie 
nachträglich noch verbessern. Dazu mußt Du 


‘das deutsche Wort eingeben, das wird dann in 


der Vokabelliste gesucht. Ist dieses Wort gefun-- 


einige Vokabeln 


GENIE I+1l 


‘den, kannst Du sowohl das deutsche als auch 


das Wort Deiner Fremdsprache neu eingeben. 
Nun kann die eigentliche Abfrage beginnen. 

Du kannst auch in beiden Richtungen abfragen 
lassen, d. h. Deutsch-Fremdsprache und Fremd- 
sprache-Deutsch. Du wirst solange abgefragt, 
bis. Du alle Vokabeln richtig eingegeben hast. 
Wußtest Du eine Vokabel nicht, so gibt das Pro- 
gramm die richtige Deutung. an. Alle Vokabeln 


werden mit Hilfe von: Zufallszahlen abgefragt. 


Hat man alle Vokabeln richtig angegeben, so 
wird auch noch angezeigt, wie oft man eine Vo- 


kabel nicht wußte und es erfolgt ein Rücksprung;;: -_ 


zu "Menue", 


Noch ein Tip! Solltest Du aus irgendeinem j 


Grund mit "Break" oder System.Reset aus dem 
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Programm aussteigen, so drücke keinesfalls wie- gramm deshalb nach einer Unterbrechung mit 
der "Run", dabei würden alle Daten, die Du ein- Goto 50. 
gegeben hast, wieder gelöscht. Starte das Pro- Ralph Mermagen 


oO" (EC) BY RALPH MERMAGEN 

1” 5000 KOELN 40 UNTER SDTTES GNADEN 135 

3 CLEAR1O00 

10 DIMA$(100),B$ (100) 

30 CLS:PRINT" VORABELABFRAGE "=: FRINT: INPUT" FREMBSFRACHE" ;F$ 

80 FRINT"WAS WUENSCHEN SIE T":FRINT" 1 — VOKABELN EINGEBEN":FRINT" 2 
—- VOKABELN VERBESSERN"=PRINT" 23 — LISTE DER VOKABELN"«FRINT" 4 — AB 
FRAGE DEUTSCH => "3F&:PRINT" 5 — ABFRAGE ":F$;" => DEUTSCH" 

70 AS=INKEYSE 

75 A=VAL INKEY$) =: IFRX1ORA>STHEN?S 

80 ONAGOTD100,200, 300,400, 500 

100 ELS ; 

110 PRINT:PRINT"ZUM VOKABELEINGEBEN IRGEND EINE TASTE DRUECKEN.":PRI 
NT"ZUM BEENDEN ’AA” EINGEBEN." 

120 AS=INKEYS 

120 IFINKEY$S=""THENLSO 

135 X=0 

1409 ELS:PRINT"DEUTSCH" „ TAB{32)IF$ 

150 INPUTAS (X): PRINTTAB (32) CHR$ (27) 3: INPUTBS(X) z IFAS (X) = a 
"AA"THENIAOELSEX=X+1:60T0D130 

140 AN=X-1 

170 CLS:60TD&O 

200 ELS:PRINT"GEBEN SIE BITTE DAS DEUTSCHE WORT EIN": INPUTDE 

210 FORX=0TDAN: IFD$=LEFT#$ (A$ (X) „LEN <D$) ) THENZSOELSENEXT 

220 PRINT"DAS WORT IST NICHT IN DER DATEI. "zZFORX=1TD1000:NEXT:CLS:GD 
TOsO 

220 PRINT"DAS WORT IST IN DER DATEI.":PRINT"RITTE GEBEN SIE NUN DIE 
RICHTIGEN WOERTER EIN." 

240 FRINT"DEUTSCH"TAB{3SZIF$ 

250 INPUTA$ X) SFRINTTAB(3ZICHRS (27) 3 2 INFUTBS (X) 

250 CLS:60TD&0 

200 CLS:PRINT"LISTE DER VOKABELN" :PRINT"LISTEN MIT "ENTER"" 

205 FRINT"DEUTSCH"TAR3SZIF$ 

310 FDRX=OTDAN 

320 IFPEEK (14400) X>1 THENZZO 

330 PRINTAS (X) TAB(FZIBS CK) SNEXT:PRINT""CLEAR” FUER MENUE DRUECKEN." 
340 IFPEEK 114400) <>ZTHENS40ELSECLS: GOTDAR 

400 CLS: PRINT"ABFRAGE" = PRINT"DEUTSCH"TAB (SZ) F%$ 

405 N=0 

410 FORX=O0TOAN 

415 PRINT 

420 Y=RNDAN+1>-1: IFLEFT$ (AS (V), 1)="A" THEN42O 

430 FRINTAS(YI" = "2 INPUTA$: IFAS=LEFT$(BS$ (Y) „LEN {AS}? THENA440ELSE 
450 

440 PRINT"RICHTIG"zASCNY="A"HASCY) EGOTD40 

450 N=N+1:PRINT"FALSCH"TAB(ZO)B$ (Y):GDOTDA2O 

450 NEXT:FRINT"ALLE VOKABELN WURDEN ABGEFRAGT": PRINT"SIE WUSSTEN"SN: 
"MAL. EINE VOKABEL NICHT": FORX=1T01000: NEXT: FORX=OTOAN: ASLXI=RIGHTE (A 
${X},LEN{AS(XIY-1) NEXT: CLS: GOTD&O 
500 CLS:PRINT"ABFRAGE" :PRINTF$TAB (32) "DEUTSCH" 


505 N=0 

510 FORX=0TDAN 

515 FRINT 

520 Y=RND (AN+1) -1: IFLEFT$ {B$ (Y) ,„1)="A"THENSZO 

520 PRINTBES(Y)" = "2: INPUTA$= IFAS=LEFTS (A$ (Y) „LEN (A$) ) THENSA0ELSE 


350 
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540 FRINT"RICHTIG"s BES {Y}="A'+BE (Y:GOTDISÖO 

550 N=N+1:FRINT"FALSCH"TAR (20) A$ Cr): GOTDSZO 

550 NEXT:FRINT"ALLE VOKABELN WURDEN ABGEFRAGT": FRINT"SIE WUSSTEN"IN: 
"MAL EINE VOKABEL NICHT": FORX=1T01000: NEXT: FORX=STOAN: BE OXI=RIGHT$ {E 
S$(X) „LEN{BS{XY) -1I:NEXT:CLS: GOTOGAO 


&10 FRINT"GODOD": GOTOSOO 
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Nach BTEXT 1.8, aus der GENIE DATA Nummer 1, kommt jetzt BTEXT 1.9 
für Genie I+1l. Als Drucker wird der Star DP 510 verwendet. 

im Text sind nur Änderungen angegeben, die ausführliche Bedienungs-Anlei- 
tung finden Sie in der GENIE DATA Nummer ]. 


ÄNDERUNGEN: 
rn 


. mu 
Die Befehle sind von '* = ' auf '$ $ ' umge- 
schrieben worden, man braucht jetzt keine 
'SHIFT'-Taste mehr für '*. ; 
$p oder $P drucken den Text aus. 
$e oder $E springen in den Edit-Modus. 
$new oder $SNEW starten neu. 
Im Editor ist eine Autostart-Eingabe, die sofort 
nach dem Eintippen der Buchstaben 'Q' oder 'q’ 
zurückkehrt, nach 'L' oder '|' auflistet, nach 'C' 


oder 'c' ändert und nach 'D' oder 'd' Zeilen 
löscht. 

Soweit zu den Feinheiten. 

Neu sind: 

'8S$T! oder '$s$i' als Befehle wie oben für 


ITALIC-Schrift. 

'85$G' oder '$s$g' für gerade Schrift. 

Diese Befehle werden genau wie die anderen als 
Textzeile eingegeben, erscheinen aber zusätz- 
lich im Edit-Modus als dritte Abkürzung vor der 
Zeilen-Nr., und zwar als 'I' wie ITALIC-, und 
'G' wie gerade Schrift. 


Zu den Programmzeilen: 
(13) 
stellt einen Tabulator dar, 


Schriftmuster 


(240) 

hierdurch darf man auch am Anfang einer Zeile 
versehentlich 'Pfeil links' drücken, ohne daß das 
Programm mit einer Fehlermeldung stoppt, 
(424), (426) 

ITALIC-Kommandos, 

(1180)-(1200) 

sind im Ausbau leider etwas lang geraten, da 
nach jeder Zeile die Schriftbreite und -art um- 


geschaltet wird, für den Fall, daß mian das Pro- 


gramm abbricht, 

(5011)-(5015) 

Autostart-Eingabe 

(6000)-(7010) 

mußten modifiziert werden, damit nach einem 
Druckbefehl in der nächsten Zeile der Editor 
wieder aufgerufen werden kann. 


Anderungen ff, 


Vor jeder Zeile wird die Eingabelänge markiert, 
um eine Übersicht über die Zeilenlänge zu ha- 
ben, und zwar abhängig von der Schriftbreite 
und der Zeichenzahl pro Zeile (80/96). 


Ulli Mühlhoff 


Dies soll ein Test werden. 
Bas Gleiche nun in Italics. 
Well erh 


ir GFeoz.7 


üder in ganz kleiner Schrift ? 
Lieber wieder normale Breite „ 
Dazu noch in geraden Buchstaben. 
ui Hi er ob % e= 
Greoscsbuchstaben . 
Und wenn man will, auch ganz enge Schrift ! 
Frobieren Sie es selbst. 
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Basic Textverarbeitung 
aus Genie-Data Nr.1i 
bearbeitet v. Ulli Mühlhoff 18.04.83 


10 CLS:FRINTSPRINT 

11 FRINT " BASIC TEXTVERARBEITUNG 1.97" 3 FRINT 

12 CLEAR 5000 2 DIM Ftioo) 

1% INFUT "Auf welcher Fosition soll der Text anfangen (TAB) "; 
PO =: FRINT x GOSUR 7220 : INFUT "BREITE des Textes " ; R 

i4 S$="N" : D+="F" or: 6%="6" 2 LFRINT CHR$(Z7I "5" 

Sa IF LEFT$ (B$,1) ="5" GOSUB 400 

BO Bt="" 2 GÜSUB 7390 x GÜSURB 200 

199 GOTO 50 

200 PRINTCHRS (14)1: A$=INEEY$ : IF At="" GOTO 200 

210 FRINTCHR$S (1STD 3: A=ASC CA$) 

240 IF A=8 FRINT A$ 3: IF LEN(B$)<1 THEN FRINT : GOTO 200 
ELSE VS=LEFTE (BE, LEN (BES) -1) 2 Biel : Vh=tte 2 G0TO 200 

250 IF A=13 FRINTCHR$ (130) ı X=X+tl 2: IF LEFT$(R$,1) <> "8" THEN 
Ph (X)= S4+D$+56S$+B$ : RETURN : ELSE RETURN 


00 AS=CHR$ (A) : FRINT A$ ss B$=eRtrA$ 


GOTO 200 


400 IF Bt="S55N" OR Bse"äsän" 5ShetN" . 0 GOTO “oo 
410 IF B$="8555" OR Bt="3585" GS$="5" . 6G0TO 800 
4206 IF Bt="55836" OR Be="3s8b" GS$t="B" : 7 GOTO Acc 
424 IF B$="8581" OR Bs="8s8i" Gs="I" : 2 GOTO 500 
426 IF Es="3586" OR DBe="äsäg" Gb="G6" : 0 GOTO Ao6 
430 IF B$="SDSF" DR Bs="SdSf" De="F" 4: GOTO 800 


IF Bs="SD3B" OR Bs="Sscäb" Ds="B" : GOTD Acc 


450 IF B$="5DEM" OR Bt="Scdsm" D$="M" : GOTO A00 
IF Bt="S5P" OR Bt="5p" GOSUB 1000 s RETURN 
470 IF B$t="SE" OR Bs="Se" GOSUB 5000 «: RETURN 


IF Bse"SNEW"" OR Et" 3nay" RUN 


490 FRINT "XXX Syntaxfehler KK" = FOR UU=1 TO 200 = NEXT LU 
ud X=X-1 s RETURN 


1900 
1010 
1020 
1030 
1040 
1050 
10970 
1080 
1180 
1170 


180 


1170 


1200 


1203 
1205 
1210 
2000. 
ZOO 


FOR I=1 TO X 


X$=F&(I) 

IF MIDE(X$,2,1)= "RB" GOSUR 2000 ı "=BLOCKSATZ 
IF MIDS(CX$,2,1)= "M" GOSUB 3000 ı ’=MITTELACHSE 
IF MIDS(X#,3,12)= "I". G$="I1" 


IF MIDS(X$,3,1)= "G" Gyetg" 
FOR U=4 TO LEN(X$) 
HIS=MIDS (X$,U,1) 


FR$=PRS$S+HI$ 
NEXT U 
IF LEFT$(X$,1)= "N" THEN IF G$="I1" THEN LFRINT CHR$(27) "4"; 


LFRINT CHR& (18) 3 CHR$(27) "P" CHR$S(III 3 TAR(FO) FR$ 3: ELSE 
LFRINT CHR$(Z7I "5" 5 LFRINT CHR$(18) 3 CHR$(27) "FF" CHR$(ID) ; 
TARBiFO) FR$ 

IF LEFT$(X$,1)= "RB" THEN IF 6$="I" THEN LFRINT CHR$(27) "4": 
LFRINT CHR$ (18) 4; CHR$(Z7) "P" CHR$(CII) 3 TARB(FO) CHR&(14) FRE 3: 


ELSE LFRINT CHR$(Z7I) "5" 5 LFRINT CHR$(18) 3 CHR$(273 "FF" EHR$CID ä 


TAB(PD) . CHR$<(14) FR$ 5. 

IF LEFT$(X$,1)= "5" THEN IF G6$="1" THEN LFRINT CHR$S(ETI) "4" 5 
LFRINT CHR$ (18). 5 CHR$(27} "PP" CHR$SCITI) ; TARB<{PO) CHR$(159) 11% 
PR$ 5 » ELSE LPRINT CHR$(27) "5" 2 LFRINT CHRS (18) sCHRS$ (27) "F" 
CHRSCITI 3 TAB{FO) CHR$(15) Ils FR$ 5; 

LFRINT CHRS CZ "St" 5 

LPRINT CHR$ (18) CHR&(27) "FP" CHRS(II) 3 

PRg="" > NEXT I: LPRINT : RETURN 

H$=RIGHTS (X$ „LEN (X#) -3) 

IF LENIHS) X B-8 RETURN 











N Er En LEN Een _ REN a SEE NET ENTE ED Eee een ach, 


ZO20 
OO 
ZOO 


ZELO 


22EO 
SEEO 
Na 


EOO 
3010 
EU 
BEA 
E40) 
OS 
AUTO 
Aus 
u7O 
E00 
33510 
MIEO 
OO 
SOLO 
Soll 


dl 


. solS 


god 
5015 
EODO 
ONE 
035 
OR) 
E90 
SEO 
EIOO 
ÜOO 


EO1O 
SHAO 
&Ö4O 
HEOO 
7900 
7005 
7010 


70153 
7016 


7518 ° 


7EOO 
7210 
TREO 
F230O 
7240 
720 
TRAO 
7270 
7280 
FED 
FROG 
7310 
7320 


FRINT "XXX Listen beendet %%" : RETURN 
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IF LEN{H$) >= BE RETURN 

GOSUR- 2200 2 X$=LEFTECX$, DI) HH : RETURN 

F=RND (LEN CH&)) 

IF MIDSCH$,P,i)=" " Hi$=LEFTSCH$,F) 3 H2$=RIGHT$ (H$,LENCH$SI-F) 3 
Hein" "aH2 a: HISEt N" 

IF LEN(H$) © R GOTO 2200 

His="'y H2s="t: RETURN 

HS=RIGHTE (XS, LEN (X$) -3) 

Cel.ENCH$) 7/2 

IF RIGHT&(STR&(C}, 1)="53" GOSUB T500 

L=LEN CHS$) 

F=iE-L372 

F=ABS(P) P=INT(F) 

H$S=STRINGS$S IF," "}+Hs 

xS=LEFTECXE, I) HH 

RETURN ' 
RANDOM = F=RNDILENCH$)) z IF MIDSCH$,P,1) <> " " GOTO F500 
HIS=LEFTSCHS,P} 3 H3S=RIGHTS$ (HS, LEN CHE) -P) 

H$=H1$+" "+H2$ : RETURN 

FRINTSFRINT "X Edit Ex" 

PRINT:FRINT "Befehl : "” 35 

OS=INEEYS ı PFRINTCHRSE (14) 5 

O$=INKEY$ : IF 0$="" GOTO 5012 

IF Os{H"Q" AND Os mg" AND Osim"L" AND O$zS>"1" AND O8o>tC" 
AND Os: >"c" THEN 5014 ELSE 5015 

IF O${H"D" AND Osi>"d" GOTO 3012 

FRINT 0% . 

IF Otg="Q" OR O$="q" XeX-i ss FRINT : RETURN 

IF Os="L" OR Ose"1" 0 GOSUR SPOO 2: GOTO 3500 

IF O$s="C" OR O$=e"c"  GOSUB 7000 : GOTO 5500 

IF Os="D" OR Ose"d"’ GOSUB 7200 3 GOTO 5500 

FRINT "Xk Edit Fehler xx" 

GOTO 5010 

IF Xi GOTD 5040 

FOR I=i1 TO {X-1) » IF LEN{F$(I))<A4 THEN 8030 ELSE FRINT 
LEFTS (PS), Da: I; "> "52 PRINT RIGHTS (PSCD, LENPSCDI-M 
AT=INKEY$ s IF Asi>"" GOTO 6200 

NEXT I 





AS=INKEY& » IF Abe"! THEN Kd200 ELSE 6040 

INFUT "Zeilen-Nr. "» Z 

PRINT F$(Z) ı FRINT 

Bt="".2 GOSUR 200 : IF F$(X)="" PRINT" Im °C’-Modus können" 
" keine Steuerzeichen verändert werden !" : GOTO 7U1l% 
FS(ZI=LEFT$S(FE(ZI,E) + RIGHTS (PS (X) „LEN(FSCHII-D 

x=X-1 : RETURN 


PRINT : INPUT "Zeilen-Nr. " 3 2 | 
FOR Q=7 TO X : PStM=ePs(a+l) 2 NEXT Ü 2 X=X-1 : RETURN | 


"  UNTERFROGRAMM SCHRIFTEREITEN ; | 


FRINT "Schriftbreite » 80 2Z/Z 41)" | 
FRINT " : 2a 2/2 123 © 29 
I$=INKEY$ 


FRINTCHR&E (LE 5 

I$=INKEY# » IF Is="" GOTO 7290 
TI=VAL(CIS) 

IF II<>1 AND IIE>2 GOTO 7290 
FRINTCHRS (LTD. 3 








OFTWARE Ur 
FÜR 


DRIVER 


Hatten Sie schon Probleme mit der Groß- und Klein-Schreibung bei Ihrem Colour Ge- 

nie ? 

Dieses Programm hilft Ihnen! Es dreht die Funktionen um und Ihr Computer benimmt 

sich wie eine normale Schreibmaschine. Also mit Shift - Großbuchstaben und ohne 

Shift - Kleinbuchstaben. Paßt sich problemlos an die meisten Basic-Programme an. 
Bestell-Nr. 14 (16K) Nur 29,80 DM 
Bestell-Nr. ı5 (32K) Nur 29,80 DM 


PAC-LAB I 


Hier handelt es sich um ein wirklich faszinierendes Spiel. Sie steuern Emilie durch ein 
Labyrinth. Aber leider werden Sie von hungrigen Gespenstern verfolgt, die Sie liebend 
gerne fressen würden. Was bleibt Ihnen anderes als die Flucht? Aber probieren Sie 
trotzdem beim Flüchten soviele Punkte wie möglich zu machen. 

Bestell-Nr. 22 Nur 39,-- DM 


PAC-LAB II 


Hier wurde der bekannte Pac-Lab noch verbessert! Das Labyrinth wurde vergrössert 
und, und, und,....... 
Bestell-Nr. 21 Nur 49,-- DM 


VIER GEWINNT 


Das bekannte Strategie-Spiel jetzt auch auf Ihrem Colour Genie, mit ansprechender 
Grafik und tollem Sound, in Farbe und wahnsinnig schnell. Mit diesem Programm wird 
Ihr Computer zu einem sehr starken Gegner! 

Bestell-Nr. 22_ Nur 25,-- DM 





ar Casa hie: C 60, hervoragend zur Programm- und 
Daten-Ablage geeignet. Passend zu allen Computern, 

die einen Cassetten-Recorder zum Laden und Speichern 
verwenden. 

Bei uns zu einem sagenhaften, unschlagbaren Preis: 


Bestell-Nr. 25, 10 Leer-Cassetten NUR 25,60 DM 





Bestell-Nr. 26, 100 Leer-Casseiten NUR 198,-- DM 





ID ZUBEHÖR 








\ | R DAS STÄRKSTE SCHACH FÜR EG 2000 1 I ! 
Sieben Spielstufen, spielt schwarz und 


weiß, macht Zugvorschläge, erkennt nur 


\ 
regelgerechte Züge an, stellt Schachbrett | 

auf Bildschirm dar, zeigt den besten Zug, 
knackt Schachprobleme, und, und, und, . «|. 


! 
I 
\ 
4 


Bestell-Nr. 27, nur 59,-- DM 
m : Wer da ein anderes Schachprogramm kauft, 
ist es selbst Schuld ! I I 


CGMON 


CGMON ist einer der komfortabelsten. Maschinensprachc-Monitorprogramme. Er hat 

vieles, wovon andere nur träumen! Z.B. Breakpoint-Routinen, Register- ANzeiER, wahl- 

weise im Speicher Hoch- und Tief-Ladbar etc. 
Bestell-Nr. 28 Nur 39,-- DM 


SYSANA 


Ein Analyse-Programm für System-Cassetten. Listet jeden einzelnen Programmblock 
mit.Adresse und Länge, gibt Ihnen allgemeine Informationen zum Programm. 
Bestell-Nr. 29 .Nur 24,50 DM 


ROBOT 


Ein Action Spiel der Spitzenklasse. Bewegen Sie die Roboter im Kernkraftwerk! 
Bestell-Nr. 36. Nur 29,-- DM 


LABEL-DRUCKER 


Djeses Programm druckt Ihnen Labels für Ihre Cassetten, mit millimetergenauen 
Schneide- und Falz-Marken. 2 
Bestell-Nr. 37  29,-- DM 


Wie Sie selbst sehen, bieten wir Ihnen ein ausgesuchtes Sortiment von Software und Zubehör 
für Ihr Colour Genie. Aber die kleine Auswahl 

alles. 

DESHALB: FORDERN SIE NOCH HEUTE UNSEREN UMFASSENDEN GESAMT-KATALOG AN! 
In unserem Katalog finden Sie noch viele weitere „Bonbon's". für das Colour Genie, z. B. 
Transfer-Softwaore, die es Ihnen ermöglicht Programme mit Genie I und II Besitzern zu 
tauschen, viele Hilfs-Programme und jede Menge Spiele! 

Für Ihre Bestellung benutzen Sie bitte die GENIE DATA Kontaktkarte aus diesem Heft und 
richten Sie an: Ralf M. Hübben, Verlag für Computertechnik, 5429 Marienfels/Ts. 


Vergessen Sie nicht Bestell-Nr. und Menge ‚abzugeben: HÄNDLER-ANFRAGEN ERWÜNSCHTEN 


in dieser Anzeige ist selbstverständlich nicht. 
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BEE ES ESEL 


73350 FRINT II 





SOFTWARE 


7340 
7350 IF IIs1 Z8=1.7 : Ilg="" 
7360 IF II=2 ZS=e1.4 » Ilse" 


?370 FRINT 
380 RETURN 
7390 

FAOO 
7410 ° 
7420 IF S$="N" 
7430 IF S$="5" 
7440 IF S$="R" 
7250 RETURN 
7460 END 


UNTERFROGRAMM JEDE ZEILE MARKIEREN 


PRINT STRING$ 
PRINT. STRING$S (RBXZ5,".") 
FRINT STRING$ 


kB 


(B/2,".") 





MASTER-MIND- 


Bei dem Programm Master-Mind handelt es sich 
um das altbekannte Spiel, bei dem es darum 
geht, den geheimen Code des Computers zu 
knacken. Da sich das Spiel selbst erklärt, kann 
hier auf eine Erklärung verzichtet werden. Be- 
achten Sie aber beim Eintippen die diversen 
Grafik-Zeichen, die vom Drucker nicht so dar- 


:0 ELSE: FCLS 
20 ELEAR1O0 
20 :FER: FCOLDURZ 


40 FLOTO,CT0155, 0T0155,95T00, 


45 5I#=1012 
so FORX=HTOE 
a0 SI#=5E#: FCOLDUR4 


70 FLOT1O+X, 40T019+X, 1OTORO+X 


BO PLOTSS+X,40TD40+X, 10 
370 PLOT43, 10+XT050,10+X 
100 PLOTSO+X, 10T055+X, 40 
110 PLOT40, 21+XT053,21+X 


120 PLOT&O, 40-XT075-X, 30TD&I- 


130 PLOT 80, 10+XT095, 10+X 
140 PLOT Ba+4, 12T083+X, 40 


COLOUR GENIE 


gestellt werden, wie sie getippt werden sollen. 
Welche Taste Sie für welches Zeichen einsetzen 
müssen, sehen Sie unter dem Programm-Aus- 
druck. Das Programm wurde uns zur Veröffent- 
lichung  freundlicherweise von der Firma 
Schmidtke Elektronik in Aachen zur Verfügung 
gestellt. 


I5T00,0 


‚25T025+X, 1LOTDSO+X, 40 


X,221073-4,10 


150 PLOT 115, 10+XTD100,10+XT0110-X, 2510100, 40-XT0115,40-% 
160 PLOT 120+X, 40T0125+X, 10TD135+X, 25T0122, 28+XT0140-X, 40 


170 PLOT142, 28+XT0152, 25+X 
180 FEOLOURS 


190 PLOTIO+K, BOTDIS+N, SOTODZOrK, B5TD2SrX, SOTOSO+X, BO 
200 SI#=&E81 FLOTIB+K,BOTD4I+4,50° FLOTSB+X, BOTDAI+X,50 
210 PLOT 48+X,B0TH351+4,SOTD&1+X, BOTDAS+X, 50 


220 PLOT 73+X,5OTOAB+K, 80 


230 PLDT77,S50+XT087-X , KOTOR&-X,70T072-X, 80 


240 NEXT 

250 FEDLDURZ 

zab FORN=2ITOIETER-.5 
270 ECIRELE 120,685, X 
280 NEXT 

290 FORX=ITALOOGSNENT 
32009 LER 

>10 ER AUMI 











F 


RO 
230 
340 
350 
250 
370 
3890 
3970 
Al 
410 
420 
42:0 
440 
450 
450 
470 
490 
490 
500 
310 
SEO 
SU 
540 
350 
560 
37o 
380 
S9O 
Sno 
10 
20 
so 
6A 
550 
50 
670 
580 
BFR0 
7oD 
?’10 
FED 
7EO 
740 
750 
750 
770 
780 
790 
800 
810 
820 
B20 
840 
850 
850 
870 
880 
870 
F00 
io 
F?20 
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FRINT:FRINT COPYRIGHT BY REINHOLD MIR WW Nr."SI# 
FRINT:FRINT'SFIELREGEL N" 
FRINT:FRINT"DER COMFUTER SETZT AUS SECHS FARBEN" 
FRINT"VIER IN EINE REIENFOLGE. DIESE MUSS " 
FRINT"DURCH LOGISCHE UEBERLEGUNG INNEFHALR " 
FRINT"VYON HDECHSTENS 10 SCHRITTEN HERAUS-" 
PFRINT"GEFUNDEN WERDEN „nunraun .nonswenns 5 
FRINTSFRINT'V TEL 5PASS" 
FRINT:PFRINT"P.S. DAS KOMMANDG "AU 
FRINT" LOESUNG „uruuuouuan. 
FRINT:FRINT” DAS KOMMANDO ZEIG’ LISTET" 

FRINT" DIE ERSTEN VERSUCHE IN " 

FRINT" EINER VEBERSICHTLICHEN FORM." 
FRINT:FRINT:FRINT" X3%* FRESS SPACE BAR FOR CONTINUE ick" 


{in 


" ZIEGT DIE" 


AS=INKEYS$ 

IF At=""THENGdSN 

ELSE 
GOSURBSCG: FRINTS ZOG, : GDOTOSSIO 
REM 

FRINTSO, "FARBEN-SCHLUESSEL. : " 
COLDURE 
FRINT:FRINT” R=ROT4EI "4: 
COLDURS 

FRINT"D=ORANGJE | "3: 
CDLOURS 

FRINT"B= BLAUSEI ": 

COLDUR# 

PRINT:FRINT"  Y=GELJEI! ";: 
EDLOUR2 

FRINT"G=GERUENdE I "35: 
LOLDURT 


FRINT"F=FÜRPUME I " 
PRINT:FRINT:FRINT:RETURN 
DIM E$(10),Y{10),2(10) 
COLDURI 

CiO)=4 

FORN=1TO4 

C{N}=INT (SRRND (OO) +1) 
NEXTN 

FOR N=1T04 

x=C (N) 

GOSUB1420 

CiNI=X 

NEXTN 

F$= ie ht 

FORX1=1T04 

PE=P$+CHR$ (CIX12) 

NEXTA1 

FOR F=1TD10 
FRINT"SCHRITT-NUMMER" SP" STRINGS$ (10,8 3; 


INFUTG$: FRINTSZAZ, " "3:FRINT:PRINT 


IFG$="ZEIG"THEN1540 
IFG$="AUS"THENCLS:GOTO11OO 
IFLEN (G$3  >4THEN1810 
GOSUBSTO: GOTOFFO 

FORAA=1TDA 

IFMIDE (6G$,AA,1)="R"THEN1SFO 
IFMIDE (6$, AA, 1)="0O"GOTD1710 
IFMIDS (G$ , AR, 13="B"GDT0172 
IFMID$ (6$, AA, 1) ="Y"GOTO1750 
IFMIDS (G$, AA, 1)="6"GOTD1770O 
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730 IFMID$ (6$, AA, 1)="P"GOTO1790 

740 IFMID$ (G$,AA,1)=""DRMIDE (6$, AA, II CP" R"ORMIDS (6$, AA, 19€ >" O"ODRMIDS (G$,A 
AR, 19£>"B"ORMIDS (6$, AA, DIS" Y"ORMIDS (G$,AA„ LI SH" G"TORMIDSE (6%, AA, 1LI< "FR" THEN 
FRINT" -- "3 

750 REM 

950 NEXTAA 

770 CODLDUR1 . k 
FOO RETURN 

970 CODLDURI 

.1000 B&$ (P}=6G$ 

1610 GOSUR 1170 

1020 IFB=4THEN1840 

1030 GOSUB 1280 

1040 PRINT:FRINT:PRINT:FRINT:FRINTES "schwarze Stipp", 
1050 Y(P)=B 

1050 FRINTW: "weisse Stipp":FRINT: GOSUBSOO 

1070 Z(F)=W 

1080 NEXTP:CLS 

1090 FRINT:PRINT:PRINT"Leider nicht Geschaft !ı'" 
110G PRINT:FRINT" DIE LOESUNG LAUTET: ":P$ 

1110 PRINT 

1120 G$=P$:60DSUEB7O 

11320 PRINT=:PRINT:FRINT"Neuer Versuch Y=-Yes or N=No";: 
1140 INPUTA$ 

11590 CLS5 

1150 IFLEFT${A$, 129 ="Y"THENCLEAR: GOTD4FO 

1170 FRINT 

1190 END 

1170 FORXIi=1T04 

1200 G{X1)=ASC (MIDSE {G$,X1,12) 

1210 NEXTX1 

1220 E=0 

1220 FORK=1T04 

1240 IFG(K)I<S>CCK) THENL24O 

1250 R=B+i 

1280 NEXTEK 

1270 RETURN 

1280 FORX1=1TD4 

12970 R{X1)=ASC(MIDSCF$, X1,12) 

1200 NEXTX1 

1310 W=0O 

1320 FOR I=1T04 

1230 FOR J=1TD4 

1340 IFGCII<>RCH) THENIZIBO 

1350 W=eW+l 

1350 RiJ)=0 

1370 GOTO13FO 

1320 NEXTJ 

1370 NEXTI 

1400 W=W-EB 

1410 RETURN 

1420 IFX<>1THEN1450 

14230 X=B7 

1440 RETURN 

1450 IFXZ>ZTHEN1470 

1450 X=82: RETURN 

147G IFXZ>3THENI 470 

1480 X=80: RETURN 

1470 IFX< >4THENI1S1O 

1300 X=7Y7:RETURN 
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SOFTWARE. 


1510 IFX{>STHENLS3EO 
1520 X=71:RETURN 
1550 %X=46: RETURN 
1540 V=P-1 


GENIEDATA 35 


1550 ELS:PRINT"VERMUTUNG ". "SCHWARZE", "WEISSE" 


1560 
1570 FORI=1TDV 

15B0 6$=B#& (I) 

159G GOSUBB7O 

i800 PRINT" "Y{I),„" 
1510 PRINT:NEXTI 


":Z{D) 


PRI N aen] | 


1&20 PFRINTSB41,."DRUECKE SPACE BAR FOR CONTINUE": 


1450 IFINKEY$=-""THEN1530 
1640 ECLS:PRINTS3OO, 
1550 GOSURSO00: GOTOB1O 


1560 FRINT:PRINT:PRINT:PRINT"TG ESCHAF FT 


1670 PRINT:PRINTTGANG ! ı ı ı" 
1580 GOTO1130 

1690 COLDURS 

1700 PRINT" JE IR";:60T0950 
1710 COLOURS 

1720 PRINT" ME 10"; :60T0950 
1730 COLDUR& 

1740 PRINT" JE IB"5:6010950 
1750 COLDUR4 

17680 PRINT" ME IY";:6G0T0950 
1770 COLDUR? 

1780 PRINT" JE IG";:60T0950 
1790 COLOUR? 

1800 PRINT" JE IP"; 16070950 


IM "Pr". DURCH- 


BEACHTEN SIE: 


MOD SEL — SHIFT I 
MOD SEL — AT 
MOD SEL — SHIFT F 





1810 PRINTS840, "FALSCHE EINGABE - VERSUCH ES NOCH EINMAL" 


1820 FORTT=1TO1000: NEXT 
1830 PRINTSB4O, " 


TO810 


"1: PRINTSZ20, 5:60 





PRINT TO LPRINT 


Wenn man ein Programm, das für die Ausgabe 
auf den Bildschirm gedacht ist, für die Ausga- 
be auf einen Drucker modifizieren will, kann 
dies bei langen Programmen sehr zeitraubend 
sein. Aber für solche Aufgaben hat man ja sei- 
nen Computer. Nachfoigendes Assemblerpro- 
gramm ist auf dem TRS-80 Modell I und dem 
GENIEE I, I lauffähig. Es ändert alle 


PRINT-Anweisungen in Zehntelsekundenschnelle 
in LPRINT-Anweisungen um (Für ein 14 K lan- 


ges Adventureprogramm benötigt es etwa eine 
Sekundel!). 


Die Anweisungen PRINT #-1 und PRINT@ wer- 
den nicht umgewandelt, da sie auf den Drucker 
nicht. ausgegeben ‘werden können. Das Pro- 


BORIG 3er PRINT TOD LPRINT VERSION 1.5 ekastatstak 
2RDB1S :1983 BY AXEL SCHNEIDER | 


. BED20 :SDR2 KOELN 40 


gramm stellt zuerst die Anfangs- und Endad- 
ressen des BASIC-Programmes fest. Dann 
durchsucht es den Speicher nach PRINT-Anwei- 
sungen, die als 178 abgespeichert werden. Hat 
es eine 178 gefunden, wird sie in eine 175 
(LPRINT) umgewandelt, wenn das nächste Zei- 
chen kein@ oder # ist. Das Programm muß 
durch MEM SIZE 32615 gesichert werden. Auf- 
gerufen wird es durch den Befehl "NAME", 
NAME kann wie die normalen L-II BASIC-Be- 
fehle (RUN, LIST, etc.) als Anweisung benutzt 
werden. So läßt sich eine Abfrage, ob man die 
Anzeige auf den Drucker oder auf den Bild-- 
schirm haben will, ohne Probleme in ein Pro- 
gramm integrieren. 
Axel Schneider 

















7Fb? 
7Fb7 
7FEA 
TFED 
7F7O 
TFTE 


7F7E 
7F77 
TFA 
7F7E 
7F7E 
TFIF 
rda=" 


21767F 
ZZ8FAl 
ZICR7F 
CDA7ZS 
E3CCDE 


ES 
Z1F348 
hE 
ZiFA4B 
46 
BE 


[5 


AN HL 


7Föl 
’FEE 
7F&4. 
7FES 
7FES 
7F83 
7FER 
TFEC 
7FöF 
7FIi 
TF3Z 
7F95 
7F3E& 
7F335 
FANG 
7F39A 
FIR 
7/FIE 
7FIF 
TFA 
TFRS 
7FAA 
TFAS 
7FAS 
7FA3 
7FAC 
7FAD 
7FRE 
7FBA 


7FBA 
7FB& 
7FB7 
7FBS 
7FBE 
7FEC 


 7FED 


7FEO 
7FEi 
7FCA 
7FC5 


7FEE . 


7FC3 


Ei 
SER? 
BE 
C#987F 
23 
3EAD 
BE 
CA3S7F 
3E23 
BE 
CA9S7F 
2E 
SEAF 
SEBOB 
ERREICHT 
Bg 
CABATF 
aD 

73 
21AA4AD 
SE 

BA 
C2807F 
78 

Z1 A540 
SE 

BA 
C2807F 
CEC97F 


BEFF 
25 

73 
z1iA44BD 
56 

BA 
LESD7F 


D00:5 
DDDER 
2uıdB 
2015 

BBIER 
29198 
DBEED 
00258 
uB27% 
uRzEB 
BaS1B 
DAB 
20378 
BBABE 
004530 
BOAGH 


00430 
005202 
20550 
Busen 
DOE1D 
DDEAD 
D067® 
00708 
00730 
02760 
20730 
00820 


- 30550 


2580 
? 


Bu31B 


28340 
20370 
zıaanD 
21830 
21060 
21090 
21120 
01150 
21180 
D1210 
01240 
81:70 
21300 
21310 
81330 
D1360 
01330 
DI4ZB 
21450 
01450 
21510 
B154D 
21570 
DIERD 
21630 
BI6ER 
D1630 


SOFTWARE 


;BÜDENSHOFWEG 1 
ıDE21/487452 
ORG 

LD 

LD 

LD 
EALL 

JP 

; PROGRAMMBEGIN 
BEGIN PUSH 


ANFNG 


AEFR 


NICHT 


JP 
;C-ZAEHLER 
E1- LD 

DEC 

LD 

LD 

LD 

CP 

JP 

LD 

LD 

LD 

EP 

JP 


ENDE  . POP 


7F6&7H 
HL.» BEGIN 


(167829, HL 


HL» TEXT 
BZSA7H 
BECCH 


HL. 

HL.» 16633 
C: CHL. 
HL.» 166.54 
Er CHILD 
BC 

BC 


HL 

A, 178 
CHL.) 

NZ» NICHT 
HL. 

R 64 
CHL) 

Z» NICHT 
A: 35 
HL) 

Z» NICHT 
HL 

(HL, 175 
A: 8 


G 

Z; Li 

EC 

RC 

HL; 16548 
D» (HL) 

D 

NZ» ABFR 
A: EB 

HL» 16543 
D» CHL> 

D 

NZ» ABFR 
ENDE 


6, 255 

B x 

A C 

HL,» 16548 
D» CHL) 


.D 


NZ» ABFR 
RB 

HL.» 16543 
D» CHL> 

D 

NZ» ABER 
HL: "© 


; INITIALISIEREN 
; TEXT AUF BILDSCHIRM 
: RUECKSPRUNG 


;BASICPRMZEIGER RETTEN. 
; BASICPRÜGRAMMENDE. 


SUEBERGABE DER SPEICHERZELLE 


PRINT BEFEHL ? 
; KEINER 
PRINT 9 ? 


JA 
;PRINT #-1? 


JA 


;PRINT ZU LPRINT 
;NICHT UMWANDELN. SPEICHERAN 
;CE-ZAEHLER 8 ERREICHT ? 

; NULL ERREICHT 

ae 

;BASICPRMANFANG ERREICHT? 


NEIN 


NEIN 
sANFANG ERREICHT 


HAT NULL ERREICHT 


;sC-ZAEHLER WIEDER AUFLADEN 
;B-ZAEHLER —1 
;BASICEPRMANFANG ERREICHT? 


NEIN 


SNEIN a 
;BASICPRÜBRAMMZEIGER  ZURUECC 





| 
| 
| 





GENIENATA 37 


SOFTWARE 
KHOL.EN 
7FER 09 21720 RET :ZURUECK INS BASIC 
7FCR 52 B175BD TEXT DEFM PRINT TO LPRINT VERSION 1.3 BY AXE 
L SCHNEIDER 1983" ’ 
7F67 21780 END ANFNG 


DRRRRd TOTAL ERRORS 


S3562 TEXT ARER BYTES LEFT 

REFR 7FSR DDAER ZB1lzd BIE7R 2ıSı0 BIEED 
ANFNG 7F&E7 BB1i30 21758 

BEGIN 7F7E B0ESB DIL SD 

ENDE 7FC3 21698 DiISRR 

[4 7FRa 31332 DOIAR 

NICHT 7F385 QUS5%4 uussd B0702 09730 

TEXT 7FCRE 21758 22130 





SOLITAIR 


Solitair ist ein bekanntes Brettspiel. Es wird 
auch als kleinere Ausführung unter dem Namen 
"Spring" verkauft. Die Spielregeln sind recht 
einfach: Du hast ein Brett mit vorgegebenen 
Löchern, in denen Kugeln liegen. Das Ziel eines 
jeden Spielers ist es, am Ende so wenig Kugeln 
als möglich übrig zu halten. Du darfst die Ku- 
gein nur waagrecht oder senkrecht überspringen, 
nie diagonal, Hast Du eine Kugel übersprungen, 
so wird sie herausgenommen. 


“ Das Programm setzt sich aus zwei Teilen zu- 


sammen: Als erstes gibt es ein Demonstrations- 
spiel, bei dem der Computer so spielt, daß am 
Schluß nur noch eine Kugel übrigbleibt - und die 
auch noch in der Mitte -. Im zweiten Teil des 
Programmes kannst Du selbst spielen. Du mußt 
dabei nur. den Ausgangspunkt und den Zielpunkt 
der Kugel ‚angeben, das Programm führt den 


o * {C3 BY RALFH MERMAGEN 


GENIE I+11l 


Sprung aus und überprüft gleichzeitig. seine 
Richtigkeit. Kannst Du keine Kugel mehr über- 
springen, so drücke die "A"-Taste. Nun erhält 
man eine Tabelle der besten 10 Ergebnisse. Gibt 
man seinen Namen ein, wird. eine spezielle Ab- 
frageroutine aufgerufen, die nur Großbuchstaben 
und das Leerzeichen zur Eingabe zuläßt. Hat 
man sich verschrieben, so kann man mit "&" 
das letzte Zeichen löschen, drückst Du "@" län-. 
gere Zeit, so wird die ganze Zeile gelöscht. 
Drückst Du "Enter'' oder gibst mehr als 20 Zei- 
len ein, so wird der Name der dazugehörigen 
Punktzahl gespeichert und es erscheint erneut 
das Anfangsbild. 

Am Anfang des Programms wird die Break-Ta- 
ste ausgepoked. 


Ralph Mermagen 


1 ’° 5000 KDELN 40 UNTER GOTTES GNADEN 135 


40 FOKE163975, 25 

41” x. & POKE 15595, 201 
50 ELEARSOO 

50 DIMA(7T) 

70 Z&=CHR$ (143) 


100 TCLS=:PRINTS12,"X 82% SOLITAER X x"; 
110 9=35:FORX=14BTD212STEP64:0=0+10: FORY=OTD12STEP5: PRINTSX+Y, 0:9=0+1 


:NEXTY=:G=INT(QA/1O)K10O+3: NEXTA 


120 0=30: FORX=254T03972STEP64: FORY=OTDS65TEP&: Q=Q+1:PRINTSX+Y, 9; : NEXT 


Y=:Q=1NT (90/103 %10+10:NEXTX 


130 09=53: FORX=458T0585STEP64: Q=Q+10: FORY=-OTD12STEPö: PRINTSX+Y,0: :0>=0 


+12 NEXTY: Q=INT (Q9/10}%10+3:NEXTX 


150 FORX=ST05: FORY=1TD7:ACX+YK10O)=1:NEXTY,X 
160 FORX=1T07:FDRY=ITOS:A (X+Yk10)3=1:2NEXTY,X 
170 FORX=ST05:FORY=&T07:ACX+Y%10)=1:NEXTY, x 


180 A(44)=2 


190 FORX=13T075: IFA(X)<>1THENNEXT:GOTOZ1O 
200 AT=54+1NT IX710) Ka4+11X7/10-INTIX/10) 3) 10) X6+5: FPRINTSAT, 265 :NEXT 
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210 PRINTS710, "KUGELN: "2 


220 K=31 

230 FRINTSB3B, "WOLLEN SIE DIE AUFLOESUNG (J/N) 7" 

240 A$=INKEY$: IFA$="N" THENRE=OELSE IFA$=" J" THENRE=1: PRINTSB38, "AUFLDE 
SUNG !" 3; CHR$ (20) 3: GOTD600ELSE240 

245 PRINTSB38, CHR$ (30); 

250 PRINTSB38, "WIE WOLLEN SIE SETZEN ? (A=AUFHDEREN) "; 

255 ’DNERRORGOTO260 

260 A$=INKEY$:PRINTSFO&,"VON -- NACH -- 7"; 

270 A$=INKEYS$: IFA$=""THENZ7OELSEPRINTS911,A$;: IFA$="A"THENSOOELSEZI= 
VAL (A$) K1O 

280 A$=INKEY$: IFA$=""THENZBOELSEPRINTSF12,A$; 2 Z1=Z1+VAL (A$) 

285 FRINTS960,CHR$ (31); 

290 A$=INKEY$: IFA$=""THEN2YOELSEPRINTS921 , As; 2 ZZ=VAL(A$) K10 

300 A$=INKEY$: IFA$="" THENZOOELSEPRINTS922, AS: : 22=Z2+VAL (A$) :FRINTSP2 
5,193 

310 PRINTS717,K;: IFABS (Z1-22) =20THENZZOELSE IFABS (Z1-Z2) =2THENZBO 

315 PRINTS960, "UNGUELTIGER ZUG ! BITTE NOCH MAL !"4:60T0260 

Z20 IFA(ZI)<>LORA(Z2I<C>ZDORAC(ZI+Z2) 72) <> THENZI1S 

330 FRINTSA4+INT (Z1/103K64+(Z1/10-INTIZI/10) )K1O)KA+S," "3 

340 PRINTSA4+INT {Z2/10) K64+( (Z2/10-INT (22/10) ) #10) %6+5, Z$5 

350 X=(Z1+22) 72: PRINTSAA+INT (X/ 10) 8A4+ (X /10-INT(X/10)) KO) KA+S," "5 
360 AlZ1)=2:A112)=1:Al(Z1+Z2) /2)=2:K=K-1: IFRE=OTHENZAOELSERETURN 
380 IFA(Z1I<>IORA (ZI) <>ZORAt(Z1+22) /2) <> 1THENS1S 

390 PRINTSSA+INT (Z1/10) K64+ 1 (Z1/10-INT(Z1/10))X10) Ka+5," "5 

400 PRINTS&4+INT (22/10) %#64+( (Z2/10-INT (72/10) ) 10) X6+5, Z$5 

410 X=(Z1+Z2) /2: PRINTS6A4+INT (X/10) %64+ ( (X/10-INT (X/10))K1O)KA+S," *; 
420 AZ1)=2:A1(Z2)=1:A((Z1+22) /2)=2:K=K-1: IFRE=OQTHENZ2S0ELSERETURN 
560 CLS:PRINT$20,"THE TOF TEN ":PRINTS92,"D F"sPRINTS150,"S 
OLITAER ":PRINTSTRING$ (644,140): 

510 0=0: FORX=260T0836STEP&4: Q=0+1: PRINTSX,Q; CHR$ (94) 1: IFK (d-1) >OTHEN 
PRINT® "3NS(A-1)3" — "7KCO-1) 5 :NEXTELSENEXT 

520 FORX=0T09: IFK (X) <KANDK (X) <>OTHENNEXT:GOTDSSO 

5T0 FORY=STOXSTEP-1:K(Y+1)=K(Y) EINS (Y+L)=N$ (YIENEXTY | 

532 FORW=X+1T09:PRINTS266+W864, CHR$ (30) 5 3 IFK (W) SOTHENSZSELSEPRINTS2& 
S+HWRAA, NSW)" — "5KAWI HS NEXT 

535 N$(X)=""3PRINTSX8644+266, CHR$ (30) 3 s A$=INKEY$: FORZ=10T030 

540 IFPEEK (14400) =1THENSSOELSEIFPEEK 14337) =1 THENPRINTS256+2+X%64, " 
"43 IFZ=10THENS40ELSEZ=Z-1:N$ (X) =LEFTS$ (N$ (X) ,„Z-10) :GOTDSAOELSEPRINTSX 
x64+256+7, 285 sA$=INKEYS$: IFAß=" 8" THENS40 

545 IFA$=""THENPRINTSXX644+256+Z," "3: 60TOS40ELSEIF (ASC (A$) <6SORASC (A 
$) >70) ANDASC (A$) < >32THENS40ELSEPRINTSX#64+256+Z , Az :N$ (X) =N$ (X) +A$ıN 
EXT 

550 K(X)=K1GOTOLOO | 
600 READZ11 IFZ1=100THEN&10ELSEREADZ2: GOSUB310: FORHH=1T0300: NEXT: GOTO 
&00 

6510 PRINT8832,"80 MACHT MAN DAS !";CHR$ (30) 5: FORX=1T02000: NEXT=GOTO1 
00 

620 DATA64,44,56,54,75, 55,73, 75,54,56,57,55,45, 65,75, 55, 25,45, 55,35, 
47.45,45,25,37,35, 25,45, 23,25, 15,35, 13,15, 45,25, 15, 35,43, 23,35, 33,28 
„43,31.33,43,23,63,43,51,53,53,33,41,43,44,42,23,43,42,44, 100 


reiben Ste Artike? 
für GENIE DATA! 
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NEU-NEU Alles für die GENIE’s NEU NEU 


Rekordersteuerung f. Colour-Genie Drucker-Interface für GENIE \/I| 


Ein- u. Ausschalten über den Computer mit: mit herausgeführtem BUS - für Anschluß 
CLOAD, CSAVE, SYSTEM, INPUT u. PRINT von weiteren Geräten wie z.B: RTTY-CW- 


Mit LED- -Anzeige, nur auf den BUS stecken. “ Interface oder Port-Steuerung. 
69,-- DM . 195,— DM 


Demnächst lieferbar: Speichererweiterung für 
Druckerinterface - Bausatz . ältere GENIESs auf 64K in obigem Drucker-Inter- 


Gleichzeitiger Anschluß von Drucker 


und Joysticks möglich. Disketten-Station FC 


1 Laufwerk 40 Spuren, 5 1”, Double Den- 
sity, mit Netzteil, Floppy-Controller und 
Drucker-Interface, vorbereitet für 2. Lauf- 
werk. Betriebssystem G-DOS im Liefer- 
umfang. 1.495,— DM 


79,— DM 


Abbildung zeigt fertigen Aufbau 






Damit man sieht und hört, was das Colour-GENIE kann: 
TV-Farbportable { 
36 cm, mit ausgezeichneter Farbwiedergabe für Fernsehen u. SONDERANGEBOT ; 
Programmieren. 8 Stationstasten. 650,- DM Sonderposten, solange Vorrat reicht 

40 Spur-Laufwerk, 5 '/a”, Siemens, mit Garantie 
TV-Farbportable 559 _ DM 
wie obiges Gerät, jedoch mit Video-Eingang für Farbe und rz 
Ton. Sicherheit durch Trenntrafo. Bestmöglichste Bildschärfe, 
Farbe- u. Tonqualität. 895,- DM 


Praktisches Arbeiten mit Dateien 

von C.D. Hoffmann. Deutsche Anleitung zum Praktischen Ar- 
beiten mit den Marked- u. Fixed-Item-Dateien. Aus dem Inhalt: 
MU-, MF-, MI-, FF-iu. Fl-Dateien, Wie eröffnet u. wie schließt 
man die Dateien? Schreiben u. Lesen von Dateien usw., mit Bei- GRAPE 2.0 

spielen 45,-- DM dreidimensionale, konstruktives Zeichnen, 
G-GRAFIK - das einmalige Grafik-Editier-System E Ale LED EICH IEMESIBChE MED: 
für hochauflösende Druckgrafik, Kreise, Linien, Handschriften, keiten. Mit Flandbuch 195, DM 
auf dem Bildschirm zeichnen u. ausdrucken (Diskette) 145,- DM 

Informationen gegen DM 1.30 Rückporto. Lieferung solange Vorrat, gegen Nachnahme o.Vorkasse + Porto Matrixdrucker DP 510 1.195;— DM 


H. Schaber DJ 9 RE - GENIE-Computer - 7707 ENGEN 


Industriestraße 4a - Telefon 07733/8401 


SANYO-Monitore 


und Anti-Reflex-Ätzung. 





DM 2212, orange 





SOFTWARE FÜR COLOUR GENIE 


PAC-LAB I 


Hier handelt es sich um ein wirklich faszinierendes Spiel. Sie steuern Emilie durch ein 
Labyrinth. Aber leider werden Sie von hungrigen Gespenstern verfolgt, die Sie liebend 
gerne fressen würden. Was bleibt Ihnen anderes als die Flucht? Aber probieren Sie 
trotzdem beim Flüchten soviele Punkte wie möglich zu machen. 

Bestell-Nr. 20 Nur 39,-- DM 


PAC-LAB II 


Hier wurde der bekannte Pac-Lab noch verbessert! Das Labyrinth wurde. vergrössert 


und, und, und,....... 
s Bestell-Nr. 21_ Nur 49,-- DM 


VIER GEWINNT 


Das bekannte Strategie- Spiel jetzt auch 'auf Ihrem Colour Genie, mit ansprechender 
Grafik und tollem Sound, in Farbe und wahnsinnig schnell. Mit diesem Programm wird: 


Ihr Computer zu einem sehr starken Gegner! 
Bestell-Nr. 22 Nur 25,-- DM 


> RALF M. HÜBBEN < 


> VERLAG FÜR COMPUTERTECHNKK < 
.? D-5429 MARIENFELS < 


incl. Gehäuse, 1m Kabel, Stecker usw. face 198,— DM 


12” (31 cm), gestochen scharfe Text- und 
Grafikdarstellung durch 15 MHz Bandbreite 


DM 2112, grün 298,- DM 
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HARDWARE 


TONERZEUGUNG 
BEIM VIDEO GENIE 


Daß man beim Video Genie. in Basic mit dem 
OUT-Befehl bzw. in Maschinensprache über Port 
255 einen Ton erzeugen kann, indem man den 
Strom ein- und ausschaltet, ist inzwischen all- 
gemein bekannt. 


So manch ein Besitzer des alten Genie-Modells 
'80 oder. '81 wird sich allerdings schon darüber 
geärgert haben, daß er mit seinem Gerät diesen 
Ton nicht hörbar machen kann. 

Mit einem kleinen Hardwareumbau (es werden 
lediglich ein Lötkolben, isolierter Draht und et- 
was Erfahrung im Löten benötigt) läßt sich nun 
dieser Nachteil beseitigen, und man kann den 
erzeugten Ton hinten an der Cassettenrecorder- 
buchse- abgreifen. Für die Eineund Ausgangssig- 
nalsteuerung sind im Computer zwei Relais auf 
der Interfaceplatine (siehe Grafik) zuständig. 


Relais l versorgt im aktivierten Zustand den in- 
ternen Cassettenrecorder mit Strom und legt 
die Eingangssignalleitung, die im inaktiven Zu- 
stand des Relais an der Buchse liegt, an.den 
Recorder. Relais 2 wird nur dann aktiviert, 
wenn ein zweiter externer Cassettenrecorder 
"angesprochen wird. Es steuert den Motor dieses 
'Recorders (Remote) und legt die Ausgangssig- 


nalleitung, welche zuerst am internen Recorder 
lag, an die Cassettenrecorderbuchse. 
Wünschenswert wäre es aber, wenn im inaktiven 
Zustand beider Relais die Ausgangssignalleitung 
an der Buchse liegen würde, um einen eventuell 
vorhandenen Ton abzugreifen. Dies erreicht man 
nur dadurch, daß man alle Ausgangssignalan- 
schlüsse an Relais 2 mit den Eingangssignalan- 
schlüssen von Relais l vertauscht. Jetzt liegt 
die Ausgangssignalleitung nur im aktiven Zu- 
stand von Relais 1 am Recorder, ansonsten aber 
an der Buchse. Das hört sich zwar alles kompli- 
ziert an, ist aber in der Praxis, wie wir gleich 
sehen werden, ganz einfach. 


Zuerst wird der.obere Gehäuseteil vom Compu- 
ter entfernt, die Tastatur-Platine wird abge- 
schraubt und zur Seite gedreht, um die Interfa- 
ce-Platine und die CPU-Platine freizulegen. 
Jetzt werden die beiden Verbindungsstecker 
zwischen 'CPU- und Interface-Platine gelöst, 
wobei man aber sehr vorsichtig. vorgehen muß, 
da. die Anschlüsse leicht verbiegen oder abbre- 
chen. Darauf wird auch die  Interface-Platine 
abgeschraubt und die Leiterbahnen rechts oben 
in der Ecke werden an den 6 auf der Grafik 
markierten Punkten aufgetrennt. 





Kondensator 
Widerstand 
Relais 1 
Relais 2 


- Ausgang Recorder 
- Ausgang Büchse 


- Eingang Recorder 
- Eingang Buchse 


nur wm. 
i 


Leiterbahn auf der Vorderseite 
Leiterbahn auf. der Rückseite 
Trennungsstelle auf der Leiterbahn 


}der Platine 


- Ausgangssignalleitung 


Eingangssignalleitung 
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Alle 12 Lötpunkte befinden sich auf der Rück- 
seite der Platine, Die Grafik zeigt den rechten 
oberen Ausschnitt der Interface-Platine des 
Video Genies in stark vereinfachter Form, um 
übersichtlicher zu wirken. 


Nun verbindet man jeweils die Punkte mit der- 
selben Nummer mit einem isolierten Draht und 
baut dann das ganze Gerät wieder zusammen. 


Beim Umbau ist natürlich darauf zu achten, daß 
der Netzstecker herausgezogen und das Netzteil 
abgekühlt ist! 

Nach dem Zusammenbau muß man nur Hoch die 
Cassettenrecorderbuchse mit einem Verstärker 
(Stereoanlage etc.) verbinden, und man erhält 
einen Ton, der an Qualität und Lautstärke 


nichts zu wünschen übrig läßt. 
Martin Aschoff 





JAHR: 19893 
MONAT: JULI 


MON. 4 1118 = 
DIE. S; 12 19 26 
MIT. & 13 20 27 
DON. 7 14 21 28 
FR. 10.8 15 2 29 
sam. 2 9 16 23 30 
SON 3 10 17 4 3 
<ENTER>? _ 


1" (EC) BY RALPH MERMAGEN 


KALENDER 


GENIE I+11l 


2” 5000 KDOELN 40 UNTER GOTTES GNADEN 135 


100 CLS 


110 PRINT"- - - - - - - - KALENDER--------- 
120 PRINT:PRINT"WELCHES JAHR (1801 BIS 2099) | 


125 INPUTF 


127 IFJ<1I801ORJ>Z07FORJ-INT LIT) <FOTHEN1253 


130 PRINT:PRINT"WELCHEN MONAT 
135 INPUTM 


137 IFM<S10ORMFLZORM-INT (M) < FOTHENIISS 
200 R=0: IFM=10DRM=30RM=SORM=70RM=BORM=1O0ORM=1ZTHENR=31 


210 IFM< PZANDR=OTHENR=3O 


220 IFM=ZTHENIF (J/4-INT (J7/4) 3) =OAND (47 100-INT {J/ 100) )% >O THENR=2BELSER 


=29 


230 IFR=29AND (J7/400-1NT (J/400) I=OTHENR=28B 


240 GOSUBZ000: GOSUB2200 
250 ELS 


260 PRINT"- -- - = - = - KALENDER -- - - - - -- 


270 PRINT:PRINT" JAHRE" J 
280 FRINT"MONAT: ";M$ 


270 FRINTS320, "MON. "3 =PRINTS384, "DIE. ":PRINTS44B, "MIT."3:PRINTSS12, 


"DON. "3: PRINTSS76, "FR"; 
300 A=325+ (0-1) k64 
310 FORX=1ITOR 
320 PRINTSA,X; 

' 330 A=A+64: IFA>TSOTHENA=A-7%64+5 
340 NEXT 


:PRINTS640, "SAM."3; 


:PRINTS704, "SON"; 


350 FRINTSS9&,""; 2 INPUT"<ENTER?" 3 AA$: GOTD100 

2000 G=1:F=1:H=1801: 605UB2100: K=D: G=M: F=1:H=J: GOSUB2100: A(1)=D-K:Q=A 
(13/7: T=INT {B) : Q=9-T: 0-08 100: Q9=INT (9) :9=9/77:0= IM EnN 

2010 A=(Br2) /2:0=09+2: IF@>7THENA=Q-7 ‘ 


2020 RETURN 


2100 D=(HX355) +Fıl=G: IFG{=2THENZ1ZOELSEL= (L%.4) +2. 3: L[=INT (L):D=D-L=:H 


=H+1 
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2120 

2140 RETURN 

2200 DNMGOTO2Z10, 2220, 2730, 27240, 
320 

2210 M$=" JANUAR": GOTDE3SSO 
2220 M$="FERRUAR":GOTD2IIO 
2230 M$="MAERZ":GOTO2ISSO 
2240 M$="AFRIL":GOTO23SG 
2250 M$="MATL":GOTOZFSO 

Z240 M$="JUNI": GSOTDZ3SSO 

2270 M$="JULI": GOTOZISO 

Z2B0 M$="AUGUST": GOTOZISO 
2290 M$="SEPTEMBER":GOTOZSSO 
2300 M$="OKTDBER":GOTD2ZIS0 
2210 M$="NOVEMBER":GOTDEISSO 
2320 M$="DEZEMBER" 

2550 RETURN 


2250, 2260, 2270, 2280 





SOFTWARE 


B=tl(GXK31)+tH-1) 7/4) 26=1NT (6) s DeD+G: IFH=1 900 THEND=D+1 


‚2290,2300,2310,2 


Kalender ist ein einfaches Rechenprogramm. Du 
mußt das gewünschte Jahr und den Monat ein- 
geben, worauf ein Kalenderausdruck für diesen 
Zeitraum errechnet wird. Dabei läßt das Pro- 
gramm keine falschen Eingaben zu. 

Ralph Mermagen 





BASIC-E RWE ITERUNG. 


Dieser Artikel soll zeigen, wie man unter Zu- 
hilfenahme der für DISK-BASIC reservierten 
Wörter den L-II BASIC Befehlsatz erweitern 
kann. Als Benutzer des L-II BASIC's hat man 
28 reservierte Wörter zur freien Verfügung 
(siehe Tabelle). Bis auf "NAME" werden alle 
vom DISK-BASIC benutzt. Die Benutzung. die- 


ser Befehie erfolgt auf die gleiche Art, wie bei 


der USR (X) Funktion. Die Funktionsweise soll 
anhand der CVI (X) Funktion erklärt werden: 
Bei Eingabe von -CVI (X) wird die Adresse 
16722 vom BASIC angesprungen. Gewöhnlich 
steht dort C3 2D Ol, was dem Assemblercode 
JP .01l2D entspricht. Diese Befehlsfolge läßt 
das BASIC zur Adresse 301 (dezimal) springen. 
Dies ist ‘die Ansprungadresse für den L-3 
ERROR. Bei allen 23 reservierten Anweisungen 
und Befehlen steht diese Befehlsfolge. Da sich 
diese Adressen aber im RAM befinden, lassen 
sie sich ohne weiteres verändern. Wenn man in 
die Adressen 16723 und 16724 die. Ansprungad- 
resse einer Maschinenspracheroutine poked, hat 
man eine neue Funktion zur Verfügung. Un- 
gläubige können sich anhand eines kleinen 
BASIC-Beispielprogrammes selber überzeugen: 
10 For C = 16446 TO 16474 : READD: 
POKE C, D: NEXT C 

20 DATA :203, 127, 10, 62, 1, 
61, 64, 69 


14, 0, 237, 91, 


30 DATA 47, 230, 3, 179, 211, 255, 13,40, 4, 


16, 246, 24 

40 DATA 242, 37, 32, 241, 201 

50 POKE 16723, 62: POKE 16724, 64 
60 NEW 


GENIE I+1!l 


. Nach Eingabe von RUN, wird in Zeile 10 ein 


kleines Maschinensprache-Programm zur Toner- 
zeugung in den Bereich von 16446 bis 16474 
gepocked,. In Zeile 50 wird die Sprungadresse 
der CVI-Funktion verändert. Mit der CVI-Funk- 
tion können jetzt Töne beliebiger EAnBe und 
Höhe erzeugt werden. Biespiel: 

10 For X = 4900 TO 5150 STEP 10 : 
(X) : NEXT X 

Der Rücksprung von Maschinenspracheroutinen 
muß mit einem "RET" erfolgen. Bei Maschinen- 
spracheroutinen, die das Registerpaar HL ver- 
wenden, muß der Inhalt dieses Paares vor dem 
Rücksprung wieder zurückgeladen werden, da 
HL der BASIC-Programmziähler ist. 

Er enthält. die augenblickliche Adresse im 
BASIC-Programm. Dieses kann durch ein einfa- 
ches PUSH HL am Anfang und durch ein POP _ 
HL am Ende der Maschinenspracheroutine er- 
reicht werden. Die Übergabe von Werten an 
die Routine ist durch einen ROM-Call erreich- 
bar. Der Wert wird an das HL Registerpaar 
übergeben. 

CALL OA7FH 

In der nachfolgenden Tabelle sind alle reser- 
vierten Wörter aufgelistet. Ein F bedeutet, daß 
es den Syntax einer Funktion hat (z.B. A = 
VUN). 
Ein B bedeutet, daß es den Syntax eines Be 
fehis hat (z. B. NAME 300). 


Tabelle: 
16722 - 16724 CVI 
16725 - 16727 FN 


A-=:CVI 


IF 
IF 
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SOFTWARE 


16728 - 16730 CVS 
16731 - 16733. DEF 
16734 - 16736 CVD 
16737 - 16739 EOF 


16755 - 16757 CMD / 
16758 - 16760 TIMES / 


F B 16782 - 16784 NAME /B 
B F 
F 16761 - 16763 OPEN /B 
F B 
F E 
F B 


16785 - 16787 KILL /B 
16788 - 16790 & [F 
16791 - 16793 LSET /B 
16794 - 16796 REST /B 
16797- 16799 INSTR / F 
16800 - 16802 SAVE /B 
16803 - 16805 LINE /B 


16764 - 16766 FIELD / 
16767 - 16769 GET / 
16743 - 16745 LOF 16770 - 16772 PUT / 
16746 - 16748 MKIS$ 


16749 - 16751 MKS$ 


16773 - 16775 CLOSE /B 


| 
| 
| 
& 
x 
| 
| 
8 
| 
| 
: 
\ 
| 
\ 
| 
| 





/ 
/ 
/ 
16740 - 16742 LOC |} 

/ 

/ 
/ 
/ 


16752 - 16754 MKD$ 


F 
F 16776 - 16773 LOAD /B 
P 16779 - 16781 MERGE /B 


Axel Schneider 





MERGE 


. GENIE I+1l.. 


Normalerweise ist es nicht möglich, Programme 
durch Hintereinanderladen miteinander zu ver- 
ketten, da der Video Genie bei jedem 
CLOAD-Befehl gleichzeitig ein NEW ausführt 
und damit das alte Programm löscht. Dieses 
Problem kann mit Hilfe einiger POKE's besei- 
tigt werden. 

Intern speichert der Computer den Programm- 
text in folgender Form ab: Gewöhnlich beginnt 
der Programmtext ab Speicherzelle 17129 und 
wird von zwei Nullbytes, die das Programmende 


signalisieren, beendet. Hierauf schließt sich die 


Variablentabelle an, deren Anfangsadresse ab- 
züglich zwei (um die beiden Nullbytes, die das 
Programmende anzeigen zu überschreiben) in 
16548/16549 (Programmtextpointer) ab, so igno- 
riert der Computer das Programm, welches sich 
momentan im Arbeitsspeicher befindet, da der 
Programmtextpointer jetzt auf das Programm- 
ende zeigt. 


Geben Sie folgendes im Direktmodus ein: 


X=PEEK(16634)*256+PEEK(16633)-2:POKE16549,x Peter nicht beachtet werden. 


/256:POKE16548,X-INT(X/256)*256 


Das Programm läßt sich nun nicht mehr listen 
und scheint verschwunden zu sein. Jetzt kann 
ein neues Programm von Cassette geladen wer- 
den und falls erforderlich, nach erneuter Einga- 
be der oben angegebenen Zeile, noch ein Pro- 
gramm, usw. 

Danach wird die Manipulation wieder rückgängig 
gemacht, indem man in  Speicherzelle: 
16548/16549 den alten, vom Basic-Interpreter 
vorgesehenen Wert (17129) wieder einschreibt: 
POKE16548,233:POKE 16549,66 

Jetzt lassen sich alle Programme hintereinander 
listen. Es muß allerdings darauf geachtet wer- 
den, daß sich die Zeilennummern der verschie- 
denen Programme nicht überschneiden. Außer- 
dem müssen die Zeilennummern (z. B. mit 
RENUM) so geändert werden, daß die Zeilen- 
nummern eines zu ladenden Programmes alle- 
samt höher sind, als die Nummern des vorherge- 
henden Programmes, da sonst diese Zeilen beim 
Editieren. und bei Programmsprüngen vom Inter- 


Martin Aschoff 
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GENIE I+H. 


'BATTLE OF SARPEDIUM' ist ein Invaderspiel 
mit. Ton und Grafik. Ziel ist es, die zufällig 
verteilt entstehende "ALIENS' zu vernichten, 
die versuchen, Ihre Basis mit Laserkanonen zu 
zerstören oder auf Ihre Ebene herabzukommen. 
In beiden Fällen verlieren Sie eine Ihrer ur- 
sprünglichen 3 Basen. Das Spiel ist beendet, 
wenn Sie keine weitere Basis zur Verfügung ha- 
ben. 






UV 


Die Geschwindigkeit mit der die Gegner entste- 
hen und angreifen wird im Läufe des Spiels 
langsam gesteigert, so daß sich der Schwierig- 
keitsgrad ständig erhöht. Angreifer die im ober- 





‚en Teil. des Bildschirmes getroffen werden er“: ._ 
zielen 30 Punkte, werden sie im unteren Bild-".. 


schirmteil getroffen, erzielen sie 60 Punkte; 
Wird ein neuer HIGH-SCORE aufgestellt wird: 
dieser registriert und angezeigt. Zum Bewegen 
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der Basis und zum Schießen werden die Pfeilta- 
sten benutzt. Während des Spieles kann jeder- 
zeit durch drücken der (BREAK) Taste abgebro- 
chen, durch drücken der (CLEAR) Tasten ein 
neues. Spiel angefangen werden. Das Spiel lädt 
in den Speicher im Bereich von 6000H bis 


zum. nn mo 
DEIDU » um OA 
mm Tan m mu 
Dis“ Tan AU 
m min n mm murme 
DW“ zu wur 
rm am ma 
uni wu nd 
rar en um mm 
DU I Ta 
m mrrn. Pr mer 
UK Wi 0 Ua 
zmmm. er me 
TUI) Wa u 
x Fe mer 
DWliWe “rn EU 
rum vw em 


Band: EB = 

EARG: 29 60 
SOLCHE: 28 539 
ED: 5 F7? 
ERER: 35 Bi 
EBAFD: 67 60 
EBidn: Bi DE 
Eli: 3E 67 
Bid: FF CS 


em 


4m 


us 
Li 
mn 
Leis 


— 


rr 

Den 
Wal? 
ur 


RT” 


am 
un 
ne 
je 28% 
arı 


42 


62 


DE 


ut 


BE 
EWR 


Bd 


= 
PR) 


SA 
alla] 
CD 
12 


m 


‘GO 


men 


un 
Lahr) 
el? 
— 
zn 
tn 
ud 
rm 
sn 
mr 


ci 


um 
41} 
mom 
DW 

gr) 
se 


22 
BE 
BE. 
4D 
48 
48 
CD 


u 
D 


FE 


wm 
no 
m. 
iD 
va 
Du 
— 
Zu 
ug 
Er 
er 
Kl 
mr 


if 


m 


Dis 


un 


BE 


ur 
a 


BR 
ED 


= 
38 
u 
aut 


ED 


Er 
u 


ci 


u 
Zu 
|; 
zo 
mm 
Lis 
m 

IE 


sr 


ud 
m 
Was 


er 
2 
mm 
bir 
.. 
ER 


BE 
uk 
in 

zu 
ihn 


Bo 


‚CR 


CR 
CR 
67 
CD 
AF 


mie 
zu 
am 
ui 
mm 
men 
Tr 
urn 
a 
Fk nd 
FE 


rer 


Dur 
c3 
EB 
SE 
62 
2D 
AB 
GF 
57 
SF 
CD 
Fz 
D= 


6COFH. Ansprungadresse ist 60 H. Nach eintip- 
pen des HEX-Listings kann es mit einem Moni- 
tor mit diesen Angaben auf Kassette abgespei- 
chert werden. 
Viel Spass!!! 


mm 
DD 
een 
WL/ 


rm 
je} 2] 
-. 
ER A] 
mem 


ut 
am 
Lu 
ar 


DL 


bB 


Rd 


Zu 


19 


| 
in, 


62 


a] 
£ 


Ca 
EZ 
Ca 
E66 
68 
FR 


KIUTrReite [1 
GUIDE 


Eu 


bar] 
dr 


CD 
18 


oa 


rem DI TIDI EI 


a I EILIEI TIL 


.ıS 
PIE 


1 
1 


60 


rd 
SB 


hr 
"| 


wi 


71 
m 


„3 


nu 
. 
si 


CD 
b& 
ER 
c3 


{101 
ginn 


En 
18 


ZA 


mm 
Leis 
Be 
0 


mm 


Don 


un 
EM 
nm 
Vus 
vum 
wirt 
um 
Li 
zamı 
Win 


zn 


Di 
EG 
62 
05 
35 


Ic 
u 


61 


RS 


iD 


{1 


Vene di 
WOICıMIN 


Rainer Schmies 


ZZ se 


= ED 
2a 15 


77 Ca 
ur cz 
23 62 
54 CD 
Bi DE 
7D FE 


DP510 „es-om 


TECHNISCHE DATEN 


9-Nadel Druckkopf 
100 Zeichen/sec., bidirektional 
Einzelnadelansteuerung und somit 
hochauflösende Grafik möglich!!! 

Weit über 50 Schriftarten und Breiten 
Centronics Parallel Schnittstelle serienmäßig 
RS 232C/20mA current Loop gegen Aufpreis 

ab Lager lieferbar (+ 195,-- DM) 
Einzelblatteinzug, Pinfeed für Endlospapier 
sowie Halterung für Rollenpapier im 
‚Lieferumfang 


>>> SONDERPROSPEKT. ANFORDERN <<< 


* 





inkl. MWSt. 


SCHMIDTKE 


electronic 
Büro- und Personalconpüter 
Sandkaulstraße 84 - Telefon: 0241-232 17 


10.00 - 13.00 Uhr 
14.30 - 18.30 Uhr 
10.00 - 14.30 Uhr 


dönnerstags geschlossen 





5100 AACHEN 
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SOFTWARE: 

E10: CO CS ZB ZE ID EB 15 BR ZA ID EB 7DFEF7 CS SS 
Bild: 22 ID EB 21 CO EB ED SE ıD 68 CD CI 68 CD 51 Bi 
6159: C3 ZA ID E62 7D DE EF 47 BE BE SE Bi DE FF CS IB 
BIER: FE CI SE BEDE FF OD z0 Fi C9 ZA 83 60 7C BES CO 
E17B: ZA ZI 62 7C B5 CO ZA 1D 62 11 SC 00 37 IF ED 58 
Bieg: ZZ D3 ER T6 95 CD BE 61 C9 ZA BE 68 7C BES CS CD 
6130: CS 65 7E FE 98 20 25 36 8909 56 ZB 11 4B BO 37 
BiAd: SF ED SE 7C DE SB 28 09 CD CC Ei 36 95 ZE 05 60 
GIiEQD: [3 21 BG BB ZE DE EO CH ZA IT 68 ZE ZEIT 6D CD 
BICB: 51 E61 [9 SE AS AFAF Sa Sa Fa 2a 00 ES 7E DE 80 
BGIDB: FZ DS EI EI CI 7TEFE SEI ZEFS FE SE 25 FI CD 39 
BIEB: 69 CD SD 65 CD 51 EI ZA BE ER 11 DD AU ED SE 23 
EBIFD: ED ED 55 15 68 11 ad 00 37 SF ED SE 22 21 62 SE 
BERN: BA SE IE BR EI 21 BB BU CH EA 21 EB 7C BS CS ES 
EZ1Q: DD EI DD 25 ED DD 25 BE DD 25 BF DD S5 CO DD 35 
BE2BD: CI DD S5 CE DD 35 CE DD 35 FD DD I5 FE DD S5 FF 
E250: DD S5 O8 DD S5 Bi DD 35 BE DD 35 DE CD 51 61 IA 
Bau: 12 BR SD 32 12 68 FE DO CO CD FE BEE 21 BRD BD 22 
BSR: 21 69 ED SB BE EB ZZ BE ER DS EI Tb 28 09 SE 4 
BEbDE AF SE 45 SA 20 BD ZA In ED 11 DR BB CD 9A DA CD 
627: BD BF 21 30 41 11 07 SC CD CI EB 21 C5 E61 il 0882 
bE8B: 30 CD 09 68 ZA 19 68 1i BU BE CD SA BA CD BD BF 

230: 21 30 41 11 5A SC CD CI 62 21 SE 62 11 34.50 CD 
BEAD: 13 EB ZA 25 60 11 28 BO CD SA BA CD ED BF 21 350 
BZEBD: 41 11 17 30 CD C3 689 ZI ER GE 11 ZF SC CD C9 60 
BEcB: ZA IF 68 11 AR BR CD SA BA CD EBD OF 21 35Q 41 il 
B2DR: ZA SC CD CI ER 21 DF EZ 11 28 SC CD C3 62 03 45 
BZEB: 493 47 48 2D SE 4 AF SE AS IR DD dE 41 E45 5 
'EZFB: ZB 4C 45 4&E 5a SA 20 BB DD Sb ED 28 DD 36 BE 20 
E£200: .DD 36 EC 28 DD 56 BF 28 DD SE CO 28 DD S6 Ci 28 
6310: DD Sb C& 28 DD SE CH ZB DD S6 CA 208 DD 36 FÜ 20 
ES2Q: DD S6E FD 22 DD S6 FE 28 DD 36 FF 28 DD S6 OB 20 
ESSQ: DD SE Bi 22 DD SE BE ZU DD 36 DE 20 DD 56 BA 20 
Eu: DD Sb Ai 28 DD Sb AZ 20 DD 56 4B zD DD 36 4a 20 
6550: DD 56 45 20 DD 56 IF zu DD S6 SE 20 DD S6 45 28 
ESbB: CD AC Ba CH IN 25 68 ID FE 23 608 CO SA 1B 60 32 
370: 23 ED ZA 15 62 7C ES CZ 85 BEE Z& SC ED SF CE 40 
EIEB: EFF ZE IS EB CI ZA 15 60 2 7E FE B7 28 4F FE SC 
6590: CA ID 64 CD DO 65 ZA 15 60 11 4B DD ED SA 28 15 
GERD: 60 CH 71 Ba DD ZA 15 68 DD 56 BF 22 DD 36 Ca 20 
ESEQD: DD Sb Ci 28 DD 56 CE 20 DD 36 CH ZU DD T6 Ca 28 
63CQ: DD 36 FF 28 DD 36 BD 28 DD 36 Bi B7 DD 6 BE BEE 
620: DD 356 BE BE DD 36 D4 ZB DD 36 85 208 C9 CD DO 665 
BIEB: DD ZA 15 68 DD 56 FF 20 DD SE BR 28 DD SE BI SC 
ESFB: DD Sb BZ SC DD Sb BE AG DD Sb 94 28 DD SE 05 208 
EABD: DD SG SF 208 DD 36 48 22 DD SE 4i 85 DD 56 AE 85 
BGAlDd: DD Sb 43 85 DD I6 44 20 DD 36 45 208 C3 CD DO 68 
Ba2Q: DD ZA 15 62 DD 56 FF 28 DD SE BO 20 DD S6 Bi BD. 
E4SQ: DD Sb BZ BB DD 356 AS ED DD 56 Ba zu DD SE 05 20 
E44: DD Sb SF 28 .DD S6 4B 20 DD S6 41 8D DD 36 42 6C: 
6G45Q: DD 56 45 SE DD 56 44 20 DD 36 45 20 C9 ED SF CH 
BabB: EFF 28 987 21 Di BO 22 085 60 CO ZI FF FF EEE 85 60 
BATB: CI 2A 15 62 7C FE SF CE AA 65 7D DE SB FA Ad 65 
6480: DD ZA 15 62 CD FE 62 CD 1D 65 11 O8 BO ED 553 15 
E430: 6GB CD 59 67 ZA BE 68 SG 28 21 DD BO 22 BE EB ZA 
BARd: 25 68 2E 22 25 68 7C BS CO CH DE 64 21 CO 6ER ED. 
BABD: SB ID EB CD C3 69 C9 ZA IB 6B ZE 22 IR EB 7C B5 
Bald: CB 21 2 O3 Z2 IB 6ER SA IB BR FE BI CS SD 22 10 
Baba: 68 C9 CD 62 65 CD 66 BE 21 EE 64 11 4B SC CD ER 
BAaEN: 65 CD CS 65 CD ZB 88 FE BD 28 FE C3 67 60 OD 8D 
BAFB=: DE 47 Ai 45 28 4F 56 45 52 BD BD DO 52 52 45 




















Jetzt ist es endlich da ......... O O U R 





Dis Gilde Fön 


Das stärkste Schachprogramm der Welt für Colour Genie! Erstellt von Gerhard W. 
Wolf im Alleinvertrieb von Ralf M. Hübben, Verlag für Computertechnik. 


Mit diesem Schachprogramm zeigt Ihr Colour Genie was es alles kann! 
Colour Genie Schach bietet Ihnen unter anderem: 


- Sieben Schwierigkeits-Stufen. Das heißt: Unser Schachprogramm ist ge- 
eignet für Anfänger, die sich in die Kunst des Schachspieis noch ein- 
finden wollen, und für fortgeschrittene Spieler. Colour Genie. Schach ist 
Ihnen ein guter Schachlehrer und Spielpartner. 


- Die Problem-Stufe: 
Wenn Sie diese Funktion wählen, löst Ihr Colour Genie Ihnen auch die 
schwierigsten Schachprobleme. 


- Bei Colour Genie Schach können Sie frei wählen, welche Farbe Sie 
spielen möchten, 


Colour Genie Schach erkennt nur Züge an, die den Schachregeln ent- 


Schach noch nicht genau kennen, bestens geeignet. 


Colour Genie Schach ‚macht Ihnen auf Wunsch Zugvorschläge, die Sie an- 
nehmen oder ablehnen können. 


Colour Genie Schach bietet noch soviele weitere Vorteile, daß es uns 
richt möglich ist, sie hier alle zu erwähnen, z. B. Darstellung des 
Schach-Brettes auf dem Bildschirm, Anzeige des momentan besten Zuges, 

und, und, und, ey a: 





Gibt es da eigentlich noch etwas zu überlegen? Nein !!!! 


Bestellen Sie sofort Ihre Cassette mit Coleur Genie Schach! Denn: Colour Genie 
Schach bietet Ihnen ein unschlagbares Preis-Leistungs-Verhältnis ! 


BESTELL-NR. 27_ ZUM SAGENHAFTEN SUPERPREIS VON NUR sg,-- DM 
Bo; JEDER DER EIN ANDERES SCHACHPROGRAMM KAUFT, << 
>>> IST ES SELBST SCHULD! <<< 


RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS 


sprechen, aus diesem Grund ist es auch für Spieler, die die Regeln des = 
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SOFTWARE 
Ed: 5358 20 IC 45 dE 5a 45 52 IE 20 Sa dr 20 55 Sa 
E51Qd: 41 52 54 20 dE 45 57 20 47 Ai AD 45 Ba 21 382 65 
E52: ED SB iD 6B CD C9 68 BL DE SF ED 45 iD 6A CD Al 
ESEB: 64 [9 2B 20 20 20 20 20 20 20 20 20 00 2A 15 62 
6542: 7C DE SE FE 54 65 zn 19 68 11 IE 88 37 SF ED SA 
E55: 2219 EB CH AN 19 60 11 EC 00 37 SF ED SA 22 19 
ESER: 62 C9 2A 13 EU ED 5B IF 60 7C 3 F= 75 E65 FR 7D 
E570: 933 F= 75 65 [09 22 IF EB CS CD 29 60 21 D7 65 11 
GBR: BD SC CD BA 65 CH AB 65 CD CB 65 21 08 SC 11 Bi 
55920: 30 DI IF MM 54 ED BO Si CD SF il Ci SF Bi SF DW 
ESAB: 34 ED BO CD ZB AB FE OD 20 DE CI CD SE 65 1 Bi 
ESEB: 69 11 OD EC CD EA 65 CE 88 65 ED 55 20 4D TE FE 
ESCd: DO CE CD SE OB 28 18 FE 3E Bi DE FF SE 08 DE FF 
E5DQ: SE BB DE FF 10 F2 C9 OD 20 22 20 20 20 20 20 20 
ESEwB: 20 20 20 20 20 20 20 20 20 20 2D 54 AB 45 20 4 
ESFQ: 4l 54 54 AD 45 20 AF 46 20 55 Al SE SD 45 du 49 
GERD: 55 AD 20 20 20 20 20 20.20 22 20 20 20 2:0 20 20 
BEid: 20 20 20 20 20 20 20 OD OD 59 AF 55 20 al 52 45 
BE2B: 20 54 AB 45 20 4E 4F AD AD Al 4E 4A 45 52 20 Ar 
BEIDE. AG 20 4l 2D AG 45 Au 45 52 Al AO 20 58 5D Ai 48 
EEAd: 45 ZU 4er Al 54 54 AU 45 54 55 47 20 49 4E 20 54 
BESQ: 48 45 20 41 52 45 41 BD AF 46 20 54 4B 45 20 50 
BEED: ACC Al dE 45 54 20 55 4i 52 50 45 44 49 55 AD ZE 
667B: ZU Al 28 Ab Al 45 45 54 20 AF AG 20 4E 52 55 45 
EEBQ: AU 20 Al 4E 4A 20 AR Al AF AF 44 59 20 Al 4C 49 
EEIW: 45 4E 55 20 OD 57 41 4E 54 55 20 54 4F 20 ac ai 
EEAQ: HE 44 22 AUF 4E 20 34 45 45 20 5D AC Al 4E 45 54 
BEER: 20 54 4F 20 42 52 49 dE 47 20 54 4B 45 20 49 4E 
BECH: AB Al 4 49 54 Al HE 54 55 20 48 4F 4D 45 20 54 
E6EDB: AF OD 54 48 45 49 52 20 50 AC 4i 4E 45 54 20 54 
EBEEZ: AF 20 55 55 45 20 54 48 45 AD 20 Ai 55 20 55 dc. 
EEFB: 41 56 45 58 20 49 4E 20 54 AB 45 20 4D 49 4E 45 
E7BR: 53 ZE OD OD 59 4aF 55 55 20 4D 49 53 55 49 4F 4E 
E71B: 28 3A OD 4u 45 58 54 52 4F 59 20 41 4C ACC 20 4 
6720: AC 43 45 4E SS 20 54 4F 20 58 4l 56 45 20 59 4F 
673Q: 55 52 20 5D 45 4F 50 AC 45 21 21 21 OD OD OD 48 
5742: 49 54 20 SC 45 4E 54 45 52 SE 20 54 AF 2O 4E Ar 
6750: 4E 54 43 4E 55 45 20 IN @D 26 BA [5 21 08 SC ii 
576B: BR SC Bi BD DA EDBDCDCHE ES 21 m SC HI Mi SC 
E77B: . Di FF 35 78 77 CR FE ED BD 31 08 5C 11 08 SC Mi 
6780: DO O4 ED EQ CD CE 65 Ci 18 Di CD 29 60 CD AC 64 
6730: CD Fz EB 11 BB DB ED 5: 15 68 CD FE 68 C9 3A 27 
E7AB: EB ED 32 27 60 Ca TE O6 38 27 60 DD ZA 15 62 DD 
67BEB: 7E BI FE B7 28 15 FE SC 28 22 DD TE A FE SF 28 
67CD: 05 DD 36 42 SF CS DD 36 48 EC C9 DD 7E 02 FE BEE 
E7DW: 28 25 DD 36 BG ES C9 DD 36 D& EF C9 DD 7E 82 FE 
E7ER: SC 28 25 DD T6 DE EC CS DD 36 02 BC C9 SA 11 60 
E7FB: 3D 32 11 ED FE 08 28 06 iR FE OD 20 FE C9 86 IE 
EEdl“ SE 32 32 11 62 CH ID 61 ZA OD BR SD 32 OD 60 Co: 
BBiB: SE 04 32 0D ED 2A 15 60 7C ES 20 O6 SA 17 60 76: 
BUZZ: ES CB ZA BE 60 7C ES 20 BE 2A 15 60 11 88 02 ED: 
BEIDE: SA 22 BE 6D 36 83 C9 2A BE 60 7E FE 89 28 25 56 
BS4B: 98 C9 11 AB BOB 37 SF 2A BE GO 36 20 ED 5A 22 QE 
BBSB: 62 7E FE 20 CH 76 68 2A BE 60 7C FE SF 20 iA 7D 
BBbB: CR 7F CA 79 68 CH 77 28 iD FA 79 68 11 08 DR 2A 
ES7E: BE EB 36 20 ED 58 BE EB C9 36 89 [9 FE 3B 28 D7 
ESB0: FE 89 28 DE FE BF 28 CF FE BE 28 CR FE BO 28 C7 
EBSB: FE BC 28 CH FE BR 25 BF FE E7 28 BE FE BB 28 R7 
EBAd: FE 9C CA 57 EB FE AC CA 57 65 FE BE CA 57 68 FE 
EBBQ: ED CA 57 65 FE SE CA 57 68 FE SF CA 57 68 FE ZE 
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Schreiben Sie Artike® 
für GENIEDATA! 


‚Wir sind immer daran interessiert, gute Artikel zu veröffentlichen, seien es Programm-Listings, 
Hardware-Erweiterungen, Testberichte oder andere interessante Sachen, die Sie an Ihrem Compu- 
‚ter entdeckt haben. 


Wir gehen selbstverständlich davon aus, daß die eingesandten Manuskripte Ihr geistiges Eigentum 
sind und das Sie sich mit einer Veröffentlichung in der GENIE DATA einverstanden zeigen. 


Wir spielen nicht mit verdeckten Karten und sagen Ihnen deshalb klipp und klar: 


Pro veröffentlichter Druckseite zahlen wir Ihnen 
ein Honorar von 50,-- DM. 


EIN ANGEBOT, DAS SICH SEHEN LASSEN KANN! 


Darum; 


Schreiben Sie alle Ihre Erfahrungen, Entdeckungen und Entwicklungen auf und schicken sie uns! 
Bei Hardware-Erweiterungen benötigen wir ausser Ihrem Artikel auch eine Musterschaltung 
und/oder Platine, um Fotografien zu erstellen und Ihre Arbeit zu testen.. Selbstverständlich. er- 
halten Sie diese Muster wieder zurück. 


Richten Sie Ihre Einsendungen an folgerde Adresse: 


Fa. 

RALF M. HÜBBEN 

Verlag für Computertechnik 
Mühlbachstraße 2 


5429 Marienfels 


Bald: CA 57 68 FE ER CA 57 BE FE ZECH 57 ES CE ER Bi 
BöDR: ZA B3 EB SD 32 289 EB FE BR ER 05 SE 25 TE 09 60 
BSEB: C3 5D E64 ED SE 85 EZ ZA 15 62 37 SF ED SA ZZ 15 
BEFZE: 68 CH ZA 85 BB ED SE 07 BA ED SE 85 EBD ZE 07 608 
EBIZR: ZA 03 BO ED SE BE EZ ED 53 09 EAQ ZE BR ER ZA 15 
EB: EM ED SE 17 ED ED SE 15 EB 22 17 EB AA ZI 68 47 
EIER: SA Eau GbR SE ER 75 DE Zu GB IN 27 E47 Ih 25 
E30: 68 32 27 ER 75 EE 25 EBD CH ED SB 15 BZ i3 7A EC 
EI4M: CE GEF ER CE 13 7A BE CO EFF ES CS 13 7A BC CC EF 
BSR: 69 C5 BR SE 13 IB FD 7A BC CC EF 63 Ce 12 7A BC 
BIbd: CCEF EIS CS 15 7A BC CC EFF ES CS CD 72 63 C9 7D 
E37B: BBCI EA 15 ED ED SB 17 EB ED SE 15 EB ZE 17 E08 
ER: DIT ED Al 45 Ab Da ZU Al GE AA 20 SE 
EIN: 493 47 15 54 2D Al SE SE AFS7 EU ZB 45 593 53 20 
BAABE Sa 4AF EB AD AF Sb 45 20 59 AF SS SE EB SE 4S 49 
ESED: SO OD 55 5 45 Zu 55 SO ED Ai SE SE AF 57 ZB AR 
EICH: 45 993 28 Sad 20 Ab 49 52 AS 20 59 AF SS SE 20 
EBIDH: AC 4i 55 45 52 20 57 45 4i 5QD AF AE 53 0D ED 48 
EIEB: 43 54 20 Al AdE ZO di AC 49 45 4E 220 43 4E 20 54 
ESFBE 45 45 20 5 50 50 45 52 20 50 Al SE 5a 2O Ar Ab 
EARBD: 20 54 48 45 28 SE 4358 45 45 4dE ZU SE AS AF SEO 
EAIB: 45 55 208 35 30.20 SD 4AF 49 AE 5A 55 BD 45 49 54 
EAZBI. ZB 41 AE 29 41 4C 49 45 AE 20 49 4E 20 5a du 45 
EASB: ZU ACAF ST 45 32 20 SO Al SE Sa ZI. ar Ab za 5a 





EA4A: 
ERS: 
BABEI: 
EA7E: 
ERBE: 
Erge: 
EAAM: 
BABEH 
ERCB: 
ERDE 
BAM: 
ERFR: 
EBERBE: 


EGRINE, 


EEBARN 
&EBE3G: 
GRAR: 
BESZA 
bEBZ: 
5670: 
&ESM: 
EB3Q: 
ERAB: 
BERN 
E&RCR: 
&EDE: 
&BEB: 
GEFO: 
Ein: 


4 


20 3 
[72 tut 


Sa 
u 
ac 
Al 
au 
zB 
zu 
43 
zu 
43 
4E 
= 
Sl. 
4 





ee BENEDKTN 5 


45 20 SE 43 52 


=D di ze zB 4i 


3: 45 43 50 35 


ag 59 


AC 
AE 


20 28 


u 
= 
cz 
ZA 
BE 
Se 
Se 
ID 
BD 


4ö 


49 


46 
41 
43 
4Cc 
52 


Sn 


bE = 


Ar 
Sl 
>93 
28 
Zu. 
u 
&ı 


.. “ 
=) 


2D 


€ 53 
20 = 


4E 
ZA 
Bi 


Bi 


ac 
Si 
36 
u: 


us. 


4E 
FR 
a 
3 
45 


dE 20 SS AB A4F SE 45 

4 5 DD Sa 45 45 20 52 
34 dB AS ZB 41 Sa 5a Hi 
Sa AF AD AI Sa 43 AI Li 
45 44 95 459 4E 47 BD 49 
45 4dE ZU 493 TE ZU Ai AR 


S dl 43 AG 20 59 4F SS SZ 
SE ZA Sa AF ED 45 49 54 


43 Su 0D 57 49 Sa 48 20 
7 45 4l SB 4F dE SE 20 
aus ZD 4F AE 45 20 SE 45 
Sa 45 45 ZB da 45 47 49 
S3. 20 45 41 Sb 45 20 55 
LE ED SE 54 4i dE da 20 
4 4ER BD AD 41 59 20 54 


> EB Ar 45 28 57 43 5A 45 


zı z2ı 21 BD 48 49 54 20 
Ss4 4AF EA .AS 4F 4E 54 49 
uF Sa 59 52 49 47 48 54 
32 41 49 4E 45 92 20 55 
a AF ACC AF A? GE 45 20 
Ba Sn Da 62 SD 32 08 60 
BASE 22 16 ZB ED SF SF 
7C DE SC FA CH GR ZE 20 
[3 ZA ID ED ZE DI E69 C9 
34 493 56 45 2D 55 45 45 
43 4E ZD 585 DB DE On 008 
> da BE BZ BE AS 03 85 
ıa aa BS 57 DS DE BE 00 


" COLOUR- a 


GENIE 


«.620.- 


280 CPU, 2.2 Mhz, 16K ROM, 16K RAM, Microsoft EG 2050 


Level II Basic, . 160x96 Einzelpunkte, Grafik 
bis zu 320x192 Punkte, 16 Farben, 


generator, etci 


SCHMIDTKE 


electronic 


Sandkaulstraße 84 
5100 AACHEN 
Tel. 0241-23217 


Mo.-Fr. 


Sa. 


10.00 - 13.00 Uhr 
14.30 - 17.30 Uhr 
10.00 - 14.30 Uhr 


donnerstags geschlossen 


EG 2011 1 2011 
EG 2012 


EG 2013 


du EG 2016 


16K- RAM Erweiterung Steckmodul 165,-- 
Druckeranschlußkabel mit Stecker 

und Paralell-Port Konverter 98,-- 
JOYSTICK (2 Stück: Set mit Num- 

meric PAD in BOX. Echte Ausgabe 

der eingestellten Koordinaten.) 245,-- 
Passender Cassettenrecorder mit 
Bandzählwerk j 125, -- 
Datenmonitor 12", grün, 15 Mhz 295,-- 


' Schaltplansammlung für Colour Genie 15,-- 


- 20 pol. Steckerleiste für Parallelport _ 24,50 
3 Tongeneratoren mit je 8 Oktaven, Rausch- ’ 


SOFTWARE ; 


Kennung 


Programm Einzel-Preiu/ .' 

Plotter 39,-- PM: '5SA’025 Hektik 

Colour COMP 69,-- DM: "V 026 Demopragramm 
BASICOBE! N! Bier DI: 5 027 Colour SCHACH 
Colour MINITOR 9... ma Exnimroid 
Editor-Assembler 69,-- DM, Grafik - Editor 
Colour Text in Vorbereitung } $ Mausi 

Sound Editor o- 5 Shaper : 
Zeichen Editor " Tausendfuß 
Invasion ; „- ; PAC - LAB (Pac-Man) 
Punkte jagd - ya Kings (König) 
kurm Mampf - Man 


Break Out Po Dame 


Labyrinth v Otella (Reversi} 
Zauberwürfel „- Spielesammiung 

Master Mind R Mini - Text 98 
Orgel gas ‚Abenteuer im Schloß 
Mausefalle m. Colour - KONG 
Maximikian 1 COLROT 


Design y-- Parizerkampf (32K) 
EIS 


Andromeda 
Metsor ur EAGLE 
Motten 39,-- . v.046. Game of Life 


, Panik ,-- Pac-Lab 11 
" Mau-Mau 25, . Synthesizer 
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Nicht nur in Genie Computern und im TRS 80 
"sitzt als Mikroprozessor ein Z80. Der Z80 ist 
‚ einer der am häufigsten. verwendeten Mikropro- 
‘ zessoren auf der Welt. Was liegt also näher, 
als Ihnen einmal etwas über ihn zu berichten? 
. Wie Sie sehen, hat der Z80 vierzig Beinchen, in 
der Fachsprache .Pin's genannt. Wenn man im 
“Wörterbuch nachschaut, findet man unter Pin 
‘das Wort Nadel und in der Tat sehen ja die 
Anschlußstifte fast aus. wie Nadeln. Übrigens 
nennt man die. Stifte nicht nur. beim Z80 Pin, 
sondern bei allen IC's. (IC = Integrated Circuit 
= Integrierter Schaltkreis.) 


Wir haben die einzeinen Pin's idurchnumme- 
riert,um Ihnen das Auffinden zu erleichtern. 
Nun aber’ zur Belegung: A 





HARDWARE 


Ol > AI 
02> Al2 
03 > Al3 
04 > Ald 
05 > Al5 
06 > Clock 
07>D4 
03 > D3 
09 > D5 
10 > De 











34 > Ay 
35 > A5 
36 > A6 
37 > A7 
38 > A8 
3272 89, 
40 > AlO 


AO - Al5 - 

Über die Pin's AO - Al5 werden die Adressen, 
die der Z30 ansprechen möchte, gekennzeich-. 
net, Und zwar folgendermaßen: 

Nehmen wir an, der Prozessor möchte aus dem 
Speicher mit der Adresse 4 einen Wert lesen. 
Er geht dann mit allen Pin’s auf 0 Volt Span- 
nung (low), nur Pin A3 bleibt hoch. Wenn wir 
das nun in duale Schreibweise umwandeln, : be- 
deutet eine Eins an dritter Stelle von links de-: 
zimal 4. Und damit haben wir auch. schon die 
gewünschte Adresse. Weiterhin können wir. da- 
ran sehen, daß er in der Lage ist 64K Speicher 
direkt zu adressieren. 


Anmerkung: Bei manchen 1/0 Operationen gel- 
ten nur die. unteren 8 Bit's als Adresse, woge- 





HARDWARE 
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gen die anderen 8 Bit's den Inhalt des Akkumu- 
lators enthalten. 


DSG -D7 

Das sind die Datenleitungen des. Z30 Prozes- 
sors. Über diese acht Leitungen sendet oder 
emfängt der Prozessor Daten Basenbus), 





Pin 16 - INT (interrupt) . 

Nach dem Beenden eines laufenden Befehls, 
nimmt der Z80 über dieses Pin einen Interrupt 
(Unterbrechung) an, sofern das interne Inter- 
ruptenable (Unterbrechungsfreigabe)-Register 
ein ist und kein BUSRQ (bus request/siehe un- 
ten) vorliegt. Bei einem Befehl, der sehr viele 
Maschinenzyklen lang: ist, wird ein Interrupt 
auch während der Ausführung dieses Befehles - 
z. B. Blocktransfer - angenommen. 


Pin 17 - NMI (Non. naskable Interrupt) 

Ein NMI (Nicht maskierbare Unterbrechung) ist 
der mächtigste ‘unter den Interrupt's. Er wird 
am Ende eines Befehls immer angenommen und 
veranlaßt den Z80 zu einem Sprung auf_die 


Speicherzelle 66H. Nur ein BUSRQ oder WAIT 


kann den NMI davon abhalten, sofort wirksam 
zu werden. 


Pin 18 - Halt 

Der Z30. wird: hierdurch gestoppt, das heißt, er 
führt während: eines Halts ständig NOP's aus, 
so daß der ‘Refresh für dynamische RAM's 
trotzdem korrekt ausgeführt wird. 


Pin 19 - MREQ (Memory Request/Speicher Be- 


darf) 
MREOQO zeigt an, daß an den Adreß-Leitungen 
A0 - Al5 eine gültige Adresse ansteht. 


Pin 20 - IORQ (Input/Output Request/ Einga- 
be/Ausgabe Bedarf) 

Hiermit zeigt der Prozessor an, daß an der un- 
teren Hälfte des Adreßbuses eine gültige Ad- 
resse für eine 1/0 - Operation anliegt. 


Pin 21 - RD (Read/Lesen) 
Der Z80 zeigt an, daß er Daten vom Speicher 
oder einem Peripherie-Gerät erwartet. 


Pin 22 - WR (Write/Schreiben) 

Mit WR teilt der Prozessor mit, daß er Daten, 
die am Datenbus anliegen in den Speicher 
schreiben oder einem Peripherie-Gerät uberge- 
ben möchte. 


Pin 23 - BUSAK (Bus Aktiv) 
Hiermit zeigt der Z80 an, daß ein BUSRO kor- 
rekt erledigt wurde. 


Pin 24 - WAIT (Warte) 

Dem Prozessor wird durch WAIT angegeben, 
daß ein Speicher oder Peripherie-Gerät Daten 
noch nicht verarbeitet hat. oder Daten noch 
nicht bereitgestellt wurden. Während WAIT .ak- 





tiv ist erfolgt kein Refresh. 


Pin 25 - BUSRQ (Bus Request/Bus Anforderung) 
Durch BUSRQ wird vom Prozessor verlangt, 
nach Beendigung des momentanen Zyklus, sei- 
nen Daten-, Adreß- und Steuerbus in einen 
TRI-State Zustand zu überführen. 


Pin 26 - RESET (Zurücksetzen) 

Nach einem RESET wird der Programm-Coun- 
ter (Programm-Zähler) auf Null gesetzt, d. h,, 
ein Programm ab Adresse Null wird gestartet. 
Außerdem werden interne Register so geschal- 
tet, daß das INT-Verhalten wie beim 8080 Pro- 
zessor ist. 


Pin 27 - RFSH (Refresh/Auffrischen) 
Auf AO - A6 liegt eine 7Bit lange Refresh Ad- 


resse für dynamische RAM's. A? ist nicht ver- 


wendet und A3 - Al5 zeigen den Inhalt von I 
(Interruptregister). 


Pin 6 - Clock (Taktfrequenz) 
Takteingang (TTL-kompatibe!). 


Zum Schluß zeigen wir Ihnen noch den Regi- 
stersatz.des Z80 (Bild 1) und den Aufbau des 
Flag-Registers F (Bild 2). 


BILD 1 





BILD2 


[sIzIxInIxIevinic] 
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KLEINANZEIGEN 


Alles für den Genie I - preiswert - schnell 
on M, Schuster 
St. Pöltenerstr. 4 - 7920 Heidenheim 


< 


Komtek I wenig gebraucht 660,-- * 07321-24315 * 


xkkkkKkKkrrkrr 


Suche Tauschpartner für V.C. Spiele (16K, Cas- 
sette). Gegen Freiumschlag Liste. 
Iris Otten - Hermann Oststr. 16 - 5000 Köln 80 


Basic-Compiler für Gerie I 16k Cass. 45,- 
dito. 48k Disk 99,- * 07321-24315 * 


Kassettenbetr.-System f. GENIE: 
Mit 3-facher Geschwindigk. BASIC-, Masch.-Prgme u. 
Matrizen speichern u. laden. Programm (n. 800 Byte) 
10,- DM 

Tel. (nach 18 Uhr) 0531/352606 


Genie I incl. 10 Programme 1450, - * 07321 * 
LW mit Controller incl. G-Dos nur 1450,- * 23294 * 
Kennwort 'Genie Data' bei Bestellung bitte angeben ! 
M. Schuster - St. Pöltenerstr. 4 - 7920 Heidenheim 


EHRRRRKRRRRKRTHHRKRRHRRRTRRRKHRK HR KHK HH TR HR RR NR RE RHRR 


Userelub MC-Freunde Köln f. GENIE + 
TRS8D Anwender sucht Mitglieder und 
Kontakte.BASIC + DOS-Handling Kurse 
Kalker Hauptstr. 189 5000 Köln 91 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
KRRKRERKRRARTRRKRKHTKRH HR THR NT ET TR AH TH HK TH TR RK KH TTN NR 





Kleinanzeigen in der GENIE DATA sichern 
Ihnen eine optimale Resonanz! 

Kleinanzeigen sind preiswert: - Für. Abonnenten 
3 Textzeilen kostenlos. - 

Zur Bestellung benutzen Sie bitte die Bestell: 
Karte in dieser GENIE. DATA. - 





NEUE 


ROMS 


FÜR COLOURGENIE 


Endlich ist es soweit, die für April '83 angekün- 
 digte neue ROM-Version ist lieferbar. Die ab 
jetzt gekauften Geräte sind standartmäßig da- 
mit ausgerüstet. Bei der Entwicklung dieser 
ROM's wurde angeblich auf Kompatibilität mit 
der älteren Version geachtet, und wirklich, die- 
se Kompatibilität wurde erreicht: Alle Original 
TCS-Programme laufen ohne Änderung! Auch 
selbstgestrickte Programme werden - soweit ich 
dies testen konnte - ohne Probleme übernom- 
men. Allein im BASIC muß man einzelne Befeh- 
le ersetzen: so z. B. wird der Befehl 'FILLn' 
durch den Befehl 'FCLSn' mit gleicher Wirkung 
ersetzt, 


Interessant ist besonders. die Möglichkeit des 
AUTO-START beim DOS; die alten ROM's er- 
möglichten den DOS-Aufruf nur per 'CALL'. 

Desweiteren hat der Bildschirm eine Zeile dazu- 
bekommen: Statt 24 Zeilen stehen jetzt 25 Zei- 
len zur Verfügung; auch die Grafikauflösung 
wurde von .160x96 auf. 160x102 Punkte erhöht. 


18 CLS:FCLS:Z=0 

26 FGR 

30 IF Z=i THEN Z=0 ı 
48 I2=RND(18) 


Alle Grafikbefehle unterstützen natürlich diese 
neue Auflösung. In diesem Zusammenhang sei 
noch erwähnt, daß der Befehl 'PLOTT' und alle 
auf diesem aufgebauten Befehle bemerkenswert 
schneller. geworden sind! 

Auch wurden einige lästige Fehler beseitigt: 

Der 'PAINT'-Befehl arbeitet jetzt völlig el 
freill! 

Alle Flächen werden komplett ausgemalt. Es 
sind 3 Formate moglich: 

PAINT X, Y, F 

PAINT X, Y, F,B 

PAINT X, Y, F, B,B 

X, Y sind die Koordinaten, von denen aus die 
Fläche bemalt wird. 

F ist die Farbe, mit der die Fläche ausgemalt 
wird. 

B ist eine Begrenzungsfarbe, bis zu der ausge- 
malt wird. „® 


Versuchen Sie doch einmal folgendes Beispiel- 
programm: 


G0T0 il@ : ELSE Zei 
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IF Bi=4 THEN B2=3 ELSE B2=Bil+i 


sa FOR I=1 TO Iz 

“Bd F=RND<4> : FCOLOUR F 

FB X=RND<{1SP) 2 .Y=RNDE1BI) : R=RND(SB) 
88. CIRCLE .X,Y,R 

74 NEXT:-I 

188 GOTO: 28 

i1lB REM KHK EEE RRERKERKFF TREE R IT N 
i28 FÖR K=1 TO 13 

136 F=RND(4) : IF F=4 THEN Bi=i ELSE Bi=r+i 
148 X=RND{159) : Y=RND(IIBIl) 

156 PAINT X,Y,F,Bl,BZ er 

158 NEXT K 

176 GOTO 24 


Oder testen 


Sie ganz einfach folgendes Pro- 
"gramm: 


FOR : FCLS 
FCOLOUR 2 : 
FCOLOUR 3 : 
PAINT 99,88,4,2,3 
G0TO 58 


Aber auch andere Fehler wurden beseitigt; so 
läuft auch der Befehl "ERROR n'" wieder richtig 
und "PRINT: ERR/2+l" ergibt. den Fehlercode 
bzw. "PRINT. ERL" die Fehlerzeile. 


Andere Befehle wurden erweitert und mit mehr 
. Möglichkeiten versehen, so. auch. der. ae -Be- 
fehl: 

Er nimmt jetzt als Akgunekr auch Ausdrücke 
und Berechnungen an.: : 
Beispiel: 'PLAY (1, 
(JOY1X-l) ANDI5S) 
Ferner ist Lautstärke 16 jetzt möglich, damit 
wird der PSG auf Hüllkurve gesetzt. Addiert 
man zu den alten Notenwerten jeweils 16, so 
, werden die Töne in einer besser gestimmten 

C-DUR-Tonleiter gespielt. 


Ebenfalls verbessert wurde der JOY-Befehl: 
Neben den alten Befehlen 'JOYIX'!, "JOYLY', 
"IOY2X', 'JOY2Y' finden wir den Befehl 
JOY{n), mit dem bis zu 4 Joysticks a 2 Analog- 
inputs mit 8 Bits Genauigkeit (Werte 0-255) ad- 
ressiert werden. können. Außerdem ermöglichen 
die Befehle 'JOYINP' und 'JOYOUT' den Trans- 
fer von Basic-Programmen von einem 
Colour-Genie zum anderen. (Pin 10-18 und Pin 
20 des Parallelports müssen miteinander verbun- 
den sein.) 


Auch die Befehle SCALE und SOUND wurden 
sinnvoll erweitert: 

"PRINT SCALE" zeigt den zuletzt mit "SCALE 
n"' eingegebenen Wert an. 

"SOUND(r}" ergibt den Inhalt des Registers r 
des PSG. Zulässig sind die Werte O bis 15. 


KEYPADI, KEYPADZ2, 


CIRCLE 88,51,58 
CIRCLE 89,51,30 


Dies ist noch längst nicht alles, was die neuen 
ROM's zu bieten haben, denn es wurden auch 
völlig neue Befehle aufgenommen: 


'SWAP A, B' 
vertauscht den Inhalt zweier Variablen gleich 
Typs. 


"SET Bit, Adr! 

mit Bit=Bitnummer (Werte 0 bis 
Adr.=-Adresse des gewünschten Bytes. 

angegebene Bit auf |. 

'RESET Bit, Adr' 

Setzt das angegebene Bit auf O0 zurück. 
'CHECK it, Adr)' 

prüft ob Bit gesetzt oder zurückgesetzt. 


7) 


Er, 


© 


Zu erwähnen sei noch, daß die Funktionstasten- 
belegung verbessert worden ist. (z. B. F6 = 'Sy- 
stem <Return>') 


Die neuen Möglichkeiten der Programmierung 
sind wirklich erstaunlich. Die Vorteile der er- 
weiterten Befehle kommen besonders bei spezi- 
ellen Problemlösungen zur Geltung. 


Die neuen ROM's lassen sich ohne Schwierigkei- 
ten auch in 'alte' Geräte einbauen. Sie müssen 
lediglich die vier EPROM's, die ‚bereits in Fas- 
sungen sitzen, gegen die neue Version austau- 


schen. (Bezugsquelle u. a. Fa. Schmidtke 
electronic / Sandkaulstr. 84 / 5100 Aachen -- 
Preis 80,-- DM bei. Einsendung der "alten! 
Eproms) 





Uwe Schmidtke 
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SOFTWARE 


ELEK TRONIK 


In dieser und den nächsten Ausgaben möchte ich 
Ihnen . einige elektrotechnische Probleme und 
Programme vorstellen, die den Bastler und 
Elektro-Hobbyist sicherlich interessieren. Das 
Ganze soll natürlich keine wissenschaftliche Ar- 
beit werden, sondern mehr ein ÄAuffrischen Ihres 
Wissens. Vielleicht gelingt es auch die eine oder 
andere Lücke zu füllen. 


Bevor wir einsteigen müssen erst ein paar Be- 
griffe geklärt werden. 

Was sind elektrische Stromstärke, elektrischer 
‘ Widerstand und elektrische Spannung? 

Unter elektrischer Stromstärke versteht man 
die Anzahl der Elektronen, die durch einen 
Stromleiter wandern. 

Der elektrische Widerstand ist die Kraft, die 
der elektrische Strom bei seiner Wanderung 
durch einen Leiter überwinden muß. 

Die elektrische Spannung ist die Ursache des elek- 
trischen Stromes und‘ ist die Größe, die zwi- 
schen den Polen einer Spannungsquelle ansteht. 


18326 gelang es dem ‚Physiker. Georg Simon Ohm 
erstmals einen gesetzmäßigen Zusammenhang 
zwischen diesen drei Größen festzustellen. Er 
entdeckte, daß bei konstanter Spannung eine 
Verkleinerung des Widerstandes eine Vergrößer- 
ung des Stromes nach sich zieht. Daraus ergab 
sich das "Ohmsche Gesetz": 


elektr. Spannung 
elektr. Stromstärke = 





elektr. Widerstand 


Diese Schreibweise erwies sich für die Praxis 
als zu umständlich, 
Es wurde die Kurzschreibweise 


[= 


.R 
eingeführt. 


Die vierte elektrische Größe, die wir hier be- 
trachten, ist die Leistung. Die elektrische Lei- 
stung wird berechnet aus dem Produkt von 
Strom und Spannung. Sie ist die Größe, die im 
Widerstand in Wärmeenergie umgeformt wird. 


elektr. Leistung = elektr. 
Spannung 

Und in der Kurzschreibweise: 
P=- Ix U 


Strom x elektr. 


TEILT 


Hier nun eine Übersicht der Größen und Ihrer 
Einheiten: 


Strom I Ampere A 
Spannung U Volt V 
Widerstand R Ohm 2 
Leistung P Watt W 


Der Zusammenhang der vier Größen läßt. sich 
am Besten anhand eines Beispiels verdeutlichen. 


1 Ampere 









10 Ohm 


10 Volt 
10 Watt 


liegt an einer Spannung von 10 Volt ein. Wider- 
stand von 10 Ohm, so fließt ein Strom von i 
Ampere. 
Die am Widerstand umgesetzte Leistung berägt 
10 Watt. 


Bevor wir zum Programm kommen noch ein 
paar Worte zur Arithmetik. Je nach Eingabebe- 
dingung müssen die Gleichungen I = U/R und P 
= U x I umgestellt werden bzw. verschachtelt 
werden. 


Hierfür ein Rechenbeispiel: An einer Spännling 


von U = 20 Volt liegt ein Widerstand, an dem 
die Leistung P = 1 Watt umgesetzt wird. Ge: 
sucht ist der Strom (I) und der Widerstand (R). 
Be Gleichung P = U x I wird umgestellt in I = 
P/U. 
Die zweite Gleichung erhält man durch das Ein- 
setzungsverfahren. 

Ausgangsgleichung: P=UxI 

für I können wir, nach der Gleichung I 
U/R einsetzen. 

Daraus ergibt sich 


weite ag 
P=Ux um = 
R R. 


und durch ‚umstellen 


= U/R, 


— 
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u2 trachtung des kleinen Programmes werden wohl 
keine Probleme mehr auftauchen. Die einzige 
kleine Raffinesse dürfte in Zeile 120 - 160 lie- 
gen. Dort werden die Eingabewerte den Variab- 
Nach dem Einsetzen der. Zahlenwerte ergibt len I, Ü, R und P zugewiesen. Aber auch das 
sich ein Strom von_0.05 A (= 50 mA) und ein wird für Sie keine Neuheit sein. 

Widerstand von 400%, 


Doch nun genug der Theorie. Bei näherer Be- 




































Und jetzt viel Vergnügen beim "Tippen". 
Bernd Kaiser 


u CLEARSCLS 

zu FRINTTARIZEI "Ohmsches Gesetz” 

zo FRINT!FRINT"Geben Sie zwei der vier Groessen ein. Das Frosramnm ermitte 
ir 

An FRINT’die beiden anderen." 


50 FRINT. "Strom I (Anpere)" 
aD FRINT, "Sparnnuna u Volt)" 
70 FRINT- "Widerstand Fr Ohm?" 

80 FRINT: "Leistune F (Watt3" 


Yo FRINT 

100 INFUT'"1. Grossse (Kurzzreichen: Wert) "ih: 
110. INFUT"Z. Groesse (Kurzzreichen: Wert) "5E$.KE 
120 K=AEStASC (A8$) -30) 

120 YeAaBStASC (RE) -B0) 

140 Aly)eA 

150 AY)=BR 

150 Tea I lea sRenid)ıPFeAld) 

176 IFISOANDUS>OTHENR=eU/ Is F=eU&1: 5OTOFIO 

150 IFI=OANDR>OTHENU=TH+HRiF=1#IeR:5OTO 
190 IFTS>OANDF>OTHENU=SFY/ TI: R=eP7 1) E 50OTOES 
200 TFUFÖOANDRFOTHENI=U/R: FeUrU/RIGOTOTZG 
210 IFUFÖOANDFS>OTHENI=F/U:R=U&HU/P: SOTOESG 
z20 IFR>OGANDFÖTHENI=SER (F/RD S U=SSOR (PHRO) 1 GOTOTZO 
ZEO FRINTIFRINT"Ersebnis :" 











240 FRINT» "Strom =", 1, "Ampere" 
250 PRINT: "Spannuns =, 0, "Volt" 
260 FRINT» "Widerstand =",R. "Ohm" 
270 FRINT: "Leistune =",F, "Watt" 


=80 FRINT!FRINT"Neue Berechnuns (J/N) >» 
ZF0 E$=INKEYSS IFOSE >" I" ANDOSE "N" THENDIO 
„Oo IFC$="J"THENLO 

„10 END 





TRS-80/VG ea und ER 
 ROM-Listing 


® Vollst..disass. und deutsch kommentiert; 

@ RAM-I/O-Adressen; 

® Vergleich der verschiedenen TRS-80/VIDEO- 
GENIE-Versionen; 

@ 150 genau erläuterte Unterprogramme; 

® und vieles mehr (s. auch Kritiken in mc 1/82 und 
cp 13/82). 


129 Seiten gebündelte (und gebundene) Information 
f. 69,55 DM inkl. MwSt. 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen, Telefon (02 41) 349 62. 





Die nächste GENIE DATA 
erscheint am 10. Sept. 1983. 
KRRRRKFRRRERKRRRRRKNFRTK RR H RR 









Anzeigenannahme für die Ausgabe 
Nummer vier der GENIE DATA 
bis zum 7. Aug. 1983. 
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die Fehlerfreiheit keine Garantie übernommen 
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Die Meinung der einzelnen Autoren muß nicht 
mit der des Verlages übereinstimmen. 


Anfragen an die Redaktion bitte nur schriftlich 
mit beigelegtem Rückporto. 






IMPRESSUM 





Kündigung: Zu jedem Quartal, rechtzeitig (6 
Wochen) vor Ende des Quartals. Jedes Abonne- 
ment verlängert sich nach Ablauf automatisch 
um ein Jahr. 


Sollfe die GENIE DATA aus Gründen, die nicht : 
in der Verantwortung des Verlages liegen, nicht 
oder nicht rechtzeitig erscheinen, besteht kein 
Anspruch auf Nachlieferung. 


Für eventuelle Schäden und/oder Folgeschäden 
an Geräten und/oder Bauteilen und/oder Daten- 
verlust kann keine Haftung übernommen wer- 
den. Der. Nachbau unserer Bauanleitungen 
und/oder die Anwendung von Programmen aus 
der GENIE DATA erfolgt auf eigene Gefahr. 
Alle Mitteilungen erfolgen nur für Amateur- 
und Hobby-Zwecke. Irrtum sowie alle Rechte . 
vorbehalten. Es kann keine Gewähr dafür über- . 
nommen werden, das -die verwendeten Schal- 
tungen, Firmennamen, Warenbezeichnungen und 
alle anderen Angaben frei von Schutzrechten ' 
Dritter sind. 


Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen . Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bei allen Artikeleinsendungen gehen wir davon | 
aus, daß der Verfasser alle Rechte an der Ein- 
sendung besitzt, sowie geistiger Eigentümer 
ist. 

Über jede Artikeleinsendung freuen wir uns! 


Honorar: Für jeden gedruckten Artikel bezah- 
len wir pro Druckseite ein Honorar von 50,-- 


DM. 


Wir gestatten jedermann, einen Artikel. aus der 
GENIE DATA zu entnehmen und in einer ande- 
ren Druckschrift zu veröffentlichen, unter der 
Bedingung, daß an der Gestaltung nichts verän- 
dert wird, das erwähnt wird, daß der betref- 
fende Artikel aus der GENIE DATA entnom- 
men. wurde und daß man uns mindestens ein 
Exemplar der Druckschrift kostenlos, sofort 
nach Erscheinen, zur Verfügung stellt. 











Wenn Sie.ein gutes Programm für das 
COLOUR GENIE 


(Assembler oder compiliert) 
geschrieben haben und daran interessiert 


“sind es zu verkaufen, dann schicken Sie es uns zu. 


Wir zahlen Spitzenpreise für die 
Copyrights an Spielen 
und AIR SAME: 


RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, ‚3429 MARIENFELS B% 





BÜRO COMPUTER 
= H N 


GENIE Ili 


ZBOA CPU, 4 MHZ 
64 K RAM, erweiterb. auf 256 K 
2 K ROM für Urlader und Test- 


New DOS 80, Z-DOS u. CPM 2,2a 
80 Zeichen/Zeile, blendfreier 
hochauflösender Bildschirm 
wahlw. 64x16 oder 80x24 Zeich. 
einstellbar, 160x72 Bildpunkte 
(High-Resolution Option) 
Program. Basic, Assembler, 
Fortran, Cobol, Pascal usw. 
Deutsche Tastatur mit Umlauten 


DER” SPEZIALIST FÜR 


routinen, Betriebssystem G-DOS, 


VIDEO 


HEIM COMPUTER 


GENIE Iu. Il 


Z 80 CPU/6AK RAM (48K fr. verf.) 
12KROM+2K Level 4 ROMm. Routinen 
64 Zeichen x 16 Zeilen Bildausgabe. 
Fernseh-u. Monitor-Ausgang 
Software-Kompatibel mit TRS 80 
Disketten-u. Drucker-Anschluß 
deutsche Umlaute auf dem Bildschirm 
Cassettenrecorderanschluß 


1395,-- DM 
1495,-- DM 


Preis Genie I 
Preis Genie II 


MONITORE 
Zenith 15 MHZ grün 


Magnasonic 15 MHZ grün mit 
entspiegeltem Bild. 298,-- 


275,-- DM 


GENIE 


\ 
| 
| 
\ 
| 
HOBBY COMPUTER | 
| 
| 
| 
| 
| 
| 
! 


COLOUR GENIE EG 2000 


Z 80 CPU/ 16 Farben 
Hochauflösende Grafik (4 Farbe 
16 K RAM Grundausstattung 
Soundgenerator 3 Kanäle 

PAL Fernseh-u. Monitor-Anschluß 
24 Zeilen a40 Zeichen 
Schnittstellen V24 u. Parallel 
Cassettenrecorderanschluß 


645,-- 


Speichererweit.16K 165,-- 
Druckeranschlußkabel 95,-- 
Joysticks, Paar 245,-- 
Lightpen 95,-- 
Cassettenrec.m. Zw 125,-- 
Cassettenrec.o. Zw 89,-- 
Datenmonitor ab 275,-- 


Preis 


090O0390909 
=22 3322 


BMC 12ES 18 MHZ grün 395,-- 


Sanjo DM 8212 CX fü yun- 
bernstein 1BMHZ__ 495,-- DM En am 680)... 


| 

| 

| 

| 

| 

| 

| 

| 

| 

u. 10 8l., 8 frei program. 
| 

Monitorständer 'für | 
LELYUR — TR DRATIDE | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

I 

! 


Funktionstasten 

2 Disklaufwerke b. 1,4 MB 
eingebaut, V24 u. Lentronics 
Parallel Schnittstelle 


Preis: ab 5700,00 DM 


Typenradd. EG5100 2950,-- DM 
Matrixdr. EG 3085  1750,-- DM 
Matrixdr. EG3100 2650,-- DM 


PROGRAMME 

Genie Text 395,-- DM 
Geschäftsprogr.GP4 1950,-- DM 
Finanzbuchhalt. II 995,-- DM 
Finanzbuchhalt. III 1950,-- DM 
(Mandantenfähig) 
Finanzbuchhaltung 

(Bornheim u. Partner) ab 

1890, -- 
Lagerverwaltung 595,-— 
Adressenverwaltung 395,-- 
Wareneingangsbuch 395,-- 
Genie Calc 295,-- ii 

een FÜR VIDEO GENIE 


(Berlin) 1950,-- DM : ; 


Diskettenbox mit Klarsichthaube 
und Schloß für 40 Disketten 
Diskettenbox mit Klarsichthaube 
und Schloß für 80 Disketten 
Disketten (Nashua, BASF, Scotch 3M) 
im lOer Pack 


2 


Drucker EG 3050 840, -- 


23 


Genie I+1I 98,-- DM COLOUR - PROGRAMME 

Druckerständer 72,-- DM LE: wi 
Punkt d (Art Pacm. ) 39, -- 

Matrixdrucker ITOH 8510 A (120Z/s) unktejagd ( a 


er j £ Breakout (Wand abbauen) 
voll Plottfähig, 6 Schriftbreiten 39,-- 
3K Datenbuffer, Unterlängen 


1750,-- DM 


909 


32223 zZ == 


Racing Driver 
(Hindernis fahren) 
Orgelspiel 
Space Fighter 
Kampfhubschrauber 
Glücksspielautomat 
Landkarte (Städte 
raten) 
Kampf im Weltraum 
U-Boot verserikeh 
Zeicheneditor 25,-- 
Soundeditor 25,-- 
Maschinenspr. Monitor 45,-- 
69,-- 
69,-- 


Preis 39,-- 
39,-- 
39,-- 
25 ,-- 
25,-- 


Doppeldiskstation m. 2 Laufwerken 


u. Kabel ab 1580,-- DM 


DO0009009 


Doppeldiskstationm. l Laufwerk 


und Control. 1495,-- DM 


23,-- 
25,-- 
25,-- 


WIR FÜHREN 
SAMTLICHES ZUBEHÖR 


Assembler 
Colour Compiler 


gez ERFT 


Geschäftszeiten : 
62,-- DM a 


Dienstag bis Freitag 10-18 Uhr 
Samstag 10-13 Uhr 
Montag Ruhetag 


92,50 DM 
ab 69,-- DM 


‚gU! SUPER STAR DP510 y 


Drucken und Plotten m.. Präzision Eur 
9x9 Matrix mit Unterlängen 
hochaufl. Graphik und Blockgraph. 
100 Zeichen/sec. bidirektional 
Traktor u. Friktion (Einzelbl.) 


a 
compuier _ 
[030] 312 59 13 


Reichhaltige Fachliteratur 
am Lager ! 
(Wird ständig erweitert) 


Gummi? Gem Auiieie zum (ummmmae Grid. Sure, VASEN, VAN WERAEER, Wedel RE dem Immun TEME. Ymmmibh MBeEBE, TMEEMEL Seit TMEGBEK TOSint Aeoı, Nomen Cl SCHE TEIEISE I SOC SEEN TEN ERen Dre ee gr ZU Sm BR cmar 


zZ 


NUR 1195,-- 


1000 berlin 12, sehläterstr, 16 


Wir haben Dienst-, System- und Spielprogramme 
ständig am Lager und führen auf Wunsch vor. 
.Programmwünsche u. Änderungen werden berücksichtigt. 












































Sicherlich habah Sie. schon oftmals Ba abtippen der Programme aus der GENIE 
DATA bemerkt, wie mühselig solch eine Arbeit sein kann. 


“ Zuerst fippt man, und wenn das ‚Programm im Speicher steht, muß man sich dran 


machen, die diversen Fehler, die beim’abtippen entstehen, zu beseitigen. 
Selbstverständlich lohnen die, tollen Programme in der GENIE DATA diese Mühe, aber" 
wir möchten ‚Ihnen noch einen anderen, viel bequemeren, Weg zeigen, wie Sie in den 
Besitz der Programme, aus der GENIE DATA gelangen können: 


DEN GENIE DATA SOFTWARE-SERVICE 


Der GENIE DATA SOFTWARE- SERVICE ist eine neüe, tolle Sache, für alle GENIE 


DATA Leserinnen und Leser. 


Der GENIE DATA SOFTWARE-SERVICE bringt zu jeder GENIE DATA zwei ne 
Cassetten. heraus, die eine Cassette enthält sämtliche Genie I + II Programme aus der; 
betreffenden GENIE DATA; die andere alle Colour Genie Programme. 


Die Programm-Cassetten des GENIE DATA FORIMARESERNIE erscheinen, genau 
wie die GENIE DATA, alle zwei Monate. 


DAMIT HAT DIE TIPPEREI EIN ENDE! 


“ Die Cassetten des GENIE DATA SOFTWARE-SERVICE werden Ihnen per Post .in's 
Haus geliefert, und um in den Genuß .der tollen Programme zu kommen, brauchen. sie 


nur noch die Cassette einzulegen und zu laden. 
Jede Cassette wird mindestens vier ‚Programme enthalten, im Normal-Fall aber mehr. 
UND DAS TOLLSTE IST DER FANTASTISCH NIEDRIGE PREIS! 


Die einzelne Cassette, mit allen Programmen der jeweiligen GENIE DATA, egal ob für 
Genie I + II oder -Colour Genie, wird nur 19,80 DM incl. gesetzl.’ MWSt. kosten! 


“ Und Sie können die Cassetten des GENIE DATA SOFTWARE-SERVICE auch 


abonnieren. Ein Jahres-Abo :(& Programm- Cassetten) kostet nur 99,90 DM!!! 
Das heißt: Mit einem Abo sparen Sie nocheinmal. 18,90 DM!!! 


Nehmen: 'wir einmal den ungünstigsten Fall und Sie bekommen im Abo nur 24 
Programme, es werden. mehr sein, dann bezahlen Sie pro Programm doch nur 4,16 DM! 
Das ist ein so toller Preis, daß wir damit wohl unschlagbar sind! 


Der GENIE DATA "SOFTWARE-SERVICE startet mit der Dumme: vier der GENIE | 
DATA. Bestellen: Sie sofort Ihr Abo! Es lohnt. sich! 


Einzelne Cassetten versenden wir per. Nachnahme, 19,80 ‚DM + Porto, Abos werden '. 
per Rechnung versandt, Porto und Verpackung frei. $ 


Zur Bestellung benutzen Sie bitte die GENIE DATA Kontaktkarte. Vergessen Sie nich, 


' zu schreiben, für welchen Computer. ‚die ‚Programme gedacht sind. Richten Sie Ihre 


Bestellung noch heute. an: 
Ralf M. Hübben, ee für Computertechnik, 5429 Marienfels! 





